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«REM % 

IDENTIFICATION 
PRODUCT CODE: AC =F 6214=MC 
PRODUCT NAME : CKKABAO 11/44 TRAPS 
DATE CREATED: MARCH 1979 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR : CHUCK ROBINSON 


COPYRIGHT (C) 1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WJTH INCLUSION 
OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT 
AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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4.2 


ABSTRACT 


THIS IS A TEST OF ALL ‘OPERATIONS AND INSTRUCTIONS THAT CAUSE 
TRAPS. ALSO TESTED ARE TRAP OVERFLOW CONDITIONS 


ODDITIES OF REGISTER 6, INTERRUPTS , THE RESET AND WAIT INSTRUCTIONS. 


REQUIREMENTS 

EQUIPMENT 

11/44 STANDARD COMPUTER 
STORAGE 


2.2.1 PROGRAM STORAGE = THE ROUTINE USES MEMORY 
FROM 0000 TO 17600. 


LOADING PROCEDURE 

ME THOD 

PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


THE PROGRAM STARTS AT 200. 


IF IT IS DESIRED TO RESET THE PASS COUNT BACK TO 
ZERO ; THEN START THIS PROGRAM AT LOCATION 210 


PROGRAM AND/OR OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY. (BOTTOM 4k) 
von ADDRESS. 


ART. 
THE PROGRAM WILL LOOP. 
IT WILL PRINT *‘CKKABAO 11/44 TRAPS'' AFTER THE FIRST ITERATION 
AND THEN PRINTS IT EVERY 15 TIMES(APROXIMATELY EVERY 15 SECONDS) 


SEQ 0002 
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OPERATION 


SUBROUTINE ABSTRACTS 
5.2.1 BEGIN AT 200 
5.2.2 SCOPE 


IF A SCOPE LOOP IS NEEDED INSERT A BRANCH AS THE 
COMMENT TO THE HALT EXPLAINS. 


TRAPCATCHER 


THIS IS A SERIES OF INSTRUCTIONS DESIGNED TO DETECT AND 
ISOLATE UNEXPECTED TRAPS AND INTERRUPTS, THAT OCCUR IN THE 
TRAP AND INTERRUPT VECTOR AREA OF MEMORY. 


THE PRINCIPLE OF THIS ROUTINE IS: THE VECTOR ENTRANCE 
ADDRESS POINTS TO THE NEXT SEQUENTIAL WORD WHICH WILL CON- 
TAIN A HALT (000000) (THIS LOCATION IS ALSO THE STATUS 
WORD FOR THAT VECTOR ENTRANCE. BUT THIS WILL HAVE NO EFFECT 
ON IT ALSO BEING THE NEXT INSTRUCTION). 


‘IF A HALT OCCURS IN THE TRAP OR INTERRUPT VECTOR AREA, 
REGISTER SIX SHOULD BE EXAMINED TO DETERMINE ITS CONTENTS, 
THEN USE REGISTER SIX CONTENTS AS AN ADDRESS TO DETERMINE 
WHERE THE PROGRAM WAS. WHEN THE INTERRUPT OR 

TRAP OCCURRED; MEMORY AS SPECIFIED BY R6 CONTAINS THE 

PC OF THE INSTRUCTION FOLLOWING THE INSTRUCTION WHERE THE 
TRAP OCCURRED. 

THE plea OF LOCATION ‘$TESTN'(304) CONTAINS 

re TEST NUMBER THAT IT WAS DOING BEFORE IT 


PROGRAM AND/OR OPERATOR ACTION 


LOADING AND STARTING AT 200 STARTS THE TEST. IF 
AN ERROR IS DETECTED, THERE WILL BE A HALT. 
NOTE: IF A SCOPE LOOP IS NEEDED 

THE COMMENT SECTION OF THE HALT EXPLAINS 

HOW TO UTILIZE THIS LOOP. 
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213 

sis 6. ERRORS 

18 6.1 ALL ERRORS WILL CAUSE A HALT. 

218 6.1.1 THE PROGRAM CHECKS TO SEE THAT THE P.C. DOESN'T JUMP 
219 WITHIN THE TESTS, BY A SEQUENCE COUNT CALLED '$TSTN' 

ge0 THIS TEST IS A SEQUENCIAL INCREMENT AND COMPARE COUNT. 
222 EXAMPLE 8 

224 TSTA: — INC aaSTSTNM : INCREMENT THE TEST NUMBER 

225 CMP #A, aA$STSTNM =COMPARE FOR THE RIGHT TEST 

$38 BNE TSTA+1=12 :IF NOT CORRECT BRACNH TO A HALT 
228 CODE 

229 

230 

231 

232 IMPORTANT 

233 RARER ERE KER 

234 

235 IF AN ERROR IS DETECTED ;iT COULD BE BECAUSE OF TwO REASONS. 
236 WRONG TEST NUMBER 

$37 8) ERROR IN THE PRESENT TES” 

239 VILITTITTSILTTT ALATA ATATTT ATTA ATTA TATA AAAS 
240 THE TEST SEQUENCE LOCATION ‘'TESTN'' SHOULD BE CHECKED FIRST 
241 TO SEE IF IT MATCHES THE PRESENT TEST. 

242 IF IT DOESN'T MATCH ; THEN THE CONTENTS OF THIS LOCATION 
243 TELL YOU WHICH TEST IT WAS DOING BEFORE IT HALTED. 

Sic ITIL TILT LATA TTL YE 
one 6.2 ERROR RECOVERY 

yf ON TRAP ERRORS - RESTART AT STARTING ADDRESS 

250 ?. RESTRICTIONS 

231 7.1 STARTING RESTRICTION 

253 NONE 

254 

$32 7.2 OPERATIONAL RESTRICTION 

257 NONE 


az om 
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; SEQ 0005 
260 
361 8. MISCELLANEOUS 
263 8.1 EXECUTION TIME 
365 251 PASS APPROX. 2 SEC., THEREAFTER EVERY 15 SEC 
267 
268 9. PROGRAM DESCRIPTION 
270 THIS PROGRAM CHECKS THAT ON ALL TRAP OPERATIONS REGISTER 
271 6 IS DECREMENTED THE CORRECT AMOUNT, THAT THE CORRECT 


272 PC IS SAVED ON THE STACK, THAT THE OLD CONDITION CODES AND 
273 PRIORITY ARE PLACED ON THE STACK AND THAT THE NEW nae AND 
274 CONDITION CODES ARE CORRECT. BOTH THE ‘‘TRAP’’ AND ‘EMT 

275 TRAP INSTRUCTIONS ARE TESTED TO SEE THAT ALL COMBINATIONS WILL 
276 TRAP. CHECKED ALSO IS THAT ALL RESERVED INSTRUCTIONS 

277 WILL TRAP. VERIFICATION OF THE ‘‘TRT'’ INSTRUCTION (00003) 

278 WHICH IS USED FOR SOFTWARE DEBUG ROUTINES: ODT,DDT, IS DONE. 
279 ALSO, THE TRACE BIT IS CHECKED TO SEE IF IT CAUSES A TRAP. | 
280 THE RTI AND RTT INSTRUCTIONS ARE CHECKED. STACK OVERFLOW IS 
28) ALSO CHECKED FOR ALL THE TRAP INSTRUCTIONS. 

282 SPECIAL CHECKS ARE MADE TO SEE IF BUS 

ti ERROR TRAPS OCCUR ON NON-EXISTENT MEMORY.PIRQ TRAPS ARE CHECKED AT ALL LEVELS 
285 10.0 RUNNING UNDER APT 

286 

287 

288 

289 THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
290 ARE FOR EXECUTION WITH A he ay PROCESSOR, CACHE, 

291 16K CORE MEMORY, AND 300 BA 

292 THE FOLLOWING IS ft PROGRAM LOAD FILE USED BY AFT: 

344 1. E— TABLE ‘A' IS USED FOR APT DUMP MODE. 

295 2. E TABLE ‘'B’ IS USED FOR APT QV AND RUN TIME MODES. 

Soe SENVM=040 INDICATES THAT TYPEOUTS WILL BE SUPRESSeD. 

298 

209 1ST PASS LONGEST ADDITIONAL 

300 RUN TIME TEST TIME RUN TIME 

301 5 5 0 

302 

303 

TR A”. gee ae Seti, Se Re fee ee cE TALES. |S Se weees 

305 

306 

397 “ B 

308 E-MODE /S~MODE 000/000 040/001 

ts (SENVM/SENV) 

311 SWITCH REGISTER 1 000000 000000 

315 ($SWREG) 

314 SWITCH REGISTER 2 000000 000000 

oa CPU 7YPE/OPTIONS | 00/0000 00/0000 
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177776 


ALL INSTRUCTIONS THAT ARE ee 
; SHOULD TRAP TO LOCATION 10, THE 
:PC THAT POINTS TO THE TRAPPING INSTRUCTION 


[SHOULD BE PLACED ON THE STACK 


LISTING 


LIST ME 
"NLIST MC .MD,CND 
E ABS 


RTRAP5=4 ILLEGAL ADDRESSES 
RTRAP4=14 ;FOR TRACE TRAP 
RTRAP3=30 7FOR EMULATOR TRAP 
RTRAP2=20 :FOR IOT TRAP 
RTRAP1=34 3FOR TRAP INST 
TTCSR=177564 

TRCSR=177560 

TPS=177564 

TPB=177566 

BELL=240 

NOP=240 

STATUS=177776 

TRAPA=10 

RTRAP=10 

ILLA=004700 

ILLB=100 

CC=177776 

CPUERR=177766 


CERMSK=177413 
PSW=177776 


-MCALL .$APTHDR 
-MCALL .$APTBLS 
-MCALL .$ACT11 


SEQ 0007 











































000046 
099052 
445 


000330 
446 


000024 
000044 
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$MAIL: > APT MAILBOX 


JMP BEGIN 
.=210 

CLR @F$PASS 
JMP BEGIN 


-=300 
-SBTTL ACT11 HOOKS 


LRARARARAAAEEARAEREERERRARRREREEEREERRAARERRRRARRAARERAREKARRERREARRRARAARRRARERAE ERED S 


;HOOKS REQUIRED BY ACT11 
$SV 


Pages. ZSAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
"WORD 0 :42)SET LOC. 352 TO ZERO 

=$SVPC + RESTORE P 


.SBTTL APT MAILBOX-E TABLE 


FERRARA RRA EERE REE EERE EREEERREAREARERERREERERREARARREEREARAERREAREREREAEREAR AHHH 


$MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
$FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 


$DEVCT: .WORD ADEVCT Ste: COUNT 

$UNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 

$MSGAD: .WORD AMSGAD : {MESSAGE ADDRESS 

$MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

SETABLE: > ZAPT ENVIRONMENT TABLE 
SENV: -BYTE AENV > ENVIRONMENT BYTE 7. 
SENVM: .BYTE AENVM = ;;ENVIRONMENT MODE BITS 
$SWREG: .WORD ASWREG See SWITCH REGISTER 
$USWR: .WORD AUSWR ;USER SWITCHES 

$CPUOP: .WORD ACPUOP ;;CPU TYPE, hg 


hel bits 15- it CPU T 

,* 11/04=01, "11 /05= 02,11/20= 03, 11/40=04,11/45=05 
yg 11/70=06 ,PDQ= be Q=10 

hed BIT 10=REAL TIME CLOCK 

:* BIT 9=FLOATING POINT PROCESSOR 

to BIT 8=MEMORY MANAGEMENT 

$E TEND 

MEXIT 


-SBTTL APT PARAMETER BLOCK 


MASSA SASESSASASASAAESA SAAS EASES ER SARA RRR RR RRR RRR RRRRRRRRARRRARRRRRRRRR RRR RRR RR ARSE ES | 


SSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FEA ARARA REAR EEAEREEEREAAERERREARREAEAERE RRA RAEKAEERAEARAENRRAEREAERERERRERHRHERAERE EES 


- $X=. ior CURRENT LOCATION 

2=24 2 SET POWER FAIL TO POINT TO START OF PROGRAM 
200 FOR APT START UP 

-=44  TPOINT TO APT INDIRECT ADDRESS PNTR. 


SAPTHDR : sPOINT TO APT HEADER BLOCK 

-=.$X  URESET LOCATION COUNTER 
PERE ERR ERR ERR REAR RRR REAR TR ERROR RRR ERE RE TEER RE 
; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
S INTERFACE SPEC, 
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APT PARAMETER BLOCK 





000330 $APTHD: 
000330 000000 $HIBTS: .WORD 0 ::TwO HIGH BITS OF 18 BIT MAILBOX ADDR. 
000332 000300 $MBADR: .WORD $MAIL  ::ADDRESS OF APT MAILBOX (BITS 0-15) 
000334 000005 $TSTM: WORD 5§ >:RUN TIM OF LONGEST TEST 
000336 000005 $PASTM: .WORD 5 : FRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
000346 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000342 000014 “WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 

447 000304 $TSTNM=$TESTIN 

ner 4 000302 SERROR=$F ATAL j 

450 000500 .=500 

451 000500 000000 BUFF : 

452 000502 RCPUER: .WORD 0 

453 000504 177572 SRO 177572 

454 177573 SROH: 177573 

455 000510 177574 SR1 177574 

456 000512 177576 SR2 177576 

457 000514 000250 KTVEC: 250 

458 000516 000252 KTSTA: 252 

459 090520 ADRTAB 

460 000520 177600 UPDRO: 177600 USER PAGE DESCRIPTOR REGISTERS 

461 000522 177602 UPDR1: 177602 

462 000524 177604 UPDR2: 177604 

463 000526 177606 UPDR3: 177606 

464 000530 177610 UPDR4: 177610 

465 000532 177612 UPDRS: 177612 

466 177014 UPDR6: 177614 

467 000536 177616 UPDR7?: 177616 

469 000540 177640 UPARO: 177640 :USER PAGE ADDRESS REGISTERS 

470 000542 177642 UPAR]: 177642 

471 000544 177644 UPAR2: 177644 

472 000546 177646 UPAR3: 177646 

473 000550 177650 UPARG: 177650 

474 000552 177652 UPARS: 177652 

475 000554 177654 UPAR6: 177654 

476 000556 177656 UPAR? : 155686 

478 000560 172300 KPDRO: 172300 KERNEL PAGE DESCRIPTOR REGISTERS 

479 000562 172302 KPDR1: 172302 

480 000564 172304 KPDR2: 172304 

481 000566 172306 KPDR3: 172306 

482 000570 172310 KPDR4: 172310 

483 000572 172312 KPDR5: 172312 

484 000574 172314 KPDR6: 172314 

485 000576 172316 KPDR7: 172316 . 

487 000600 172340 KPARO: 172340 -°\ .. = | ;KERNEL PAGE ADDRESS REGISTERS 

488 000602 172342 KPAR1: 172342 . 

489 000604 172344 KPAR2: 172344 

490 000606 172346 ? KPAR3: 172366 

491 000610 172350 KPARG: 172350 | 

492 000612 172352 KPARS : 12p35¢ 

493 000614 172354 KPAR6: 172354 

494 000616 172356 KPAR?: © 172356 

495 000620 000616 ADREND: .-2 
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APT PARAMETER BLOCK SEQ 0011 
er 
502 000622 012706 000500 BEGIN: MOV #500,%6 ;SET UP SACK 8UFF 
503 000626 012737 177777 017220 MOV #-1,a4PAS SSPT ;CLEAR THE ITERATION COUNTER 
000634 023767 000042 016330 CMP a4#42, SENDAD 
505 000642 001404 BEQ RESTRT 
000644 012700 017305 MOV ATITLE,RO 
507 000650 767 016644 JSR PC,PRIMSG 
508 000654 005067 177420 RESTRT: CLR SMSGTY 
509 000660 012706 000500 MOV #500, %6 
10 000664 012767 017432 177132 MOV APWRDWN, 24 ;SET UP THE POWER DOWN VECTOR 
511 000672 012767 000340 177126 MOV #340,2 ‘SET UP POWER DOWN PRIORITY 
512 000700 012767 177076 MOV #6,4 ‘SET UP TRAP VECTORS 4 & 6. 
513 0007 5067 177074 CLR 6 
514 000712 012767 000012 177070 MOV #12,10 
515 000720 005067 177 CLR 12 
516 000724 005067 177354 CLR $TSTNM 
517 000730 005067 177346 CLR $ERROR 
318 000734 012702 000300 MOV #SMSGTY,K2 
520 SPECIAL CASE OF ODD;.EVEN .BYTE AND REGISTER 6 
221 290000 HERE=0 
$23 000740 000167 000024 JMP TSTT ee 
524 000744 000000 K1t agree), “ ie 
525 000746 000000 eed? a Sper aire , 
526 000750 000000 KS: 0 = 
527 000752 000000 Ka: 0 
528 000754 000000 K5: 0 
529 000756 000000 K6: 0 
530 000760 052525 K7: 052525 - 
$31 000762 052400 K10: 052400 
532 000764 000000 K11: , 
533 000766 000000 #2 K12: 0 a = 
534 -SBTTL TEST AUTO INC AND DEC OF R6 FOR WORD AND BYTES = 
S35 ~ = LRA EERE REREREKKEREEKE EEE REAR EREEREREREREAEEEREAEE EEE EERE EEE 
: TEST 1 TEST AUTO INC AND DEC OF R6 FOR WORD AND BYTES 
FERRER REAR EKEKEEEREEEEREEEEKEKEEERERERREEREREREREER ERE REREAEEEERR ERE H 
000770 005237 000304 TST1: INC avSTESIN ;UPDATE TEST NUMBER 
000774 022737 000001 000304 CMP #1 ,QASTESIN “SEQUENCE ERROR? 
001002 001137 BNE 1Shoeto 7BR TO ERROR HALT ON SEQ ERROR 
536 001004 005006 CLR 16 
537 001006 112667 176766 MOVB (6) +, HERE :SIX SHOULD INCREMENT BY TwO 
538 001012 020627 000002 CMP 16,2 
539 001016 001405 BEQ BRi 
001020 012737 000001 000302 MOV #1, QASFATAL :MOVE TO MAILBOX # *keeaee 1 weeenee 
001026 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
001030 HALT :R6 DID NOT AUTO INCREMENT BY TWO 
; * TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 764 
22 001032 012706 001000 BR1: MOV #1000, %6 
542 001036 114627 000000 MOVB  -(6) HERE :SHOULD DECREMENT BY TWO 
543 001042 020627 000776 CMP 16,4776 
544 001046 001405 BEQ BR 
001050 012737 000002 000302 MOV #2, QASFATAL sMOVE TO MAILBOX # teeeeee 2 auneene 
001056 005212 INC (R2) SET MSGTYP TO FATAL ERROR 


001060 


Ww 

Ww 

Ww 
88888888 
ad and ah od aol on oh 
a ch a el all cd ed ed 

—— 
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000004 
000003 


000002 


000002 
000005 


000001 


000002 
000007 


000302 


000302 


000302 


000302 


000302 
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BRe: 


BR3: 


BRS: 


BR6: 


HALT 


46 
(6)+, (6)+ 
26,44 


BR 
#3, QA$FATAL 
(R2) 


%6 

%4 
(6)+,(4)+ 
16.42 


BRS 
#4, QASFATAL 
(R2) 


26 

44 
(4)+,(6)+ 
26 ,A2 


BR5 
#5 , QASFATAL 
(R2) 


26 

%4 
(6)+,(4)+ 
24,41 


BR6 
#6, GASFATAL 
(R2) 


26 
as 
(4)+,(6)+ 


16 #2 


BR 
47 ,QASFATAL 
(R2) 


:R6 DID NOT AUTO DECREMENT BY 2 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 750 


;DOUBLES AUTO INCREMENT OF R6 


;MOVE TO MAILBOX # *eennwe 3 
;SET MSGTYP TO FATAL ERROR 
;WRONG AUTO INCREMENT OF R6 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 736 


; TEST INCREMENT OF R6 


«MOVE TO MAILBOX # *eaenee 4 
;SET MSGTYP TO FATAL ERROR 
;WRONG INCREMENT OF R6 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 723 


:TEST INCREMENT OF R6 


;MOVE TO MAILBOX # **xaKee 5 
;SET MSGTYP TO FATAL ERROR 
;WRONG INCREMENT OF R6 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 710 


TEST INCREMENT OF R4 


sMOVE TO MAILBOX # ***xaee 6 
;SET MSGTYP TO FATAL ERROR 
WRONG INCREMENT OF R4 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 675 


TEST INCREMENT OF R6 


;MOVE TO MAILBOX # ‘**eaxee 7 
;SET MSGTYP TO FATAL ERROR 
WRONG INCREMENT OF R6 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 662 


KeRKRES 


REKKKEKE 


RRKKKKE 


RRERKEEK 


aeaeeee 


SEQ 0012 
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574 001236 


578 001250 
001252 
001260 
001262 


580 001264 
581 001270 


604 0014 
605 001470 
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123456 
050505 
000744 
000756 
177312 


000013 


123456 
050505 
000744 
000754 


000304 


177416 
177400 


177360 


000302 


177346 
177330 


050456 


000302 


177266 
177270 


BR7: 


%6 

44 
(4)+,(6)+ 
44,41 


’ 


BR10 
#10, @4$SF ATAL 
(R2) 


#1000, %6 
~(6) ,AHERE 
#776,%6 


TST2 
#11, @4$F ATAL 
(R2) 


eo 


-SBTTL TEST TRANSFER OF 


SEQ 0013 


TEST INCREMENT OF R4& 


KRREKEE 


sMOVE TO MAILBOX # *eaneee = 10 
;SET MSGTYP TO FATAL ERROR 
WRONG INCREMENT OF R4 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 647 


TEST DECREMENT OF R6 


RaeEKKEEK 


;MOVE TO MAILBOX # **aenee = 17 
;SET MSGTYP TO FATAL ERROR 
[WRONG DECREMENT OF R6,0R WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 

REPLACE NEXT INST W/ 633 
“BYTE USING R6 


'MARRBASASAASAALSAAASLASSLALSAAASALAL ALES ASSESSES SEERA RAR ARRAS A RRA RRR ARAR RRR ARRAS RRA ADDS SS 


“TEST 2 TEST TRANSFER OF 


«BYTE USING R6 


FEAR EEARREREEREEEREEREREERKEEEEEEEEEEEREEEEEEEEEE EEE RARER ED 


TST2: 


@4$STESTN 
#2 ,@ASTESTN 


UPDATE TEST NUMBER 
; SEQUENCE ERROR? 


TST3-12 :BR TO ERROR HALT ON SEQ ERROR 


#123456,K5 
05 


e 


vite: 
(6)+,(5)+ 
#050456, KI 
ine. - @A$SF ATAL 


#123456,K5 

#050505 ,K1 
1,25 

HKG ,%6 

~(6) ,(5)+ 

eS oe 


BR 
#13, Q4SF ATAL 
(R2) 


#123456,K1 
#050505,K5 


3%5=(050505)k1 
3%6=(123456)K5 
;LOW .BYTE OF R& TO RS 


aRkaekene 


;MOVE TO MAILBOX # *eeeee 12 
;SET MSGTYP TO FATAL ERROR 
;FALSE TRANSFER OF .BYTE 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 753 


3%5(050505)k1 
5%6(123456)K5 
;LOW .BYTE OF R6 TO RS (DECREMENT) 


eaeekaeee 


MOVE TO MAILBOX # txeenee 13 
;SET MSGTYP TO FATAL ERROR 
FALSE R6 .BYTE TRANSFER 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 727 
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TEST TRANSFER OF 


112526 


126767 
001405 


16:56 “tens 68-3 - 


-BYTE USING R 


050456 
000014 


123456 


177202 
000015 


123456 


042456 
000016 


000304 
000003 


177100 
000017 


177057 
000020 


177250 
000302 


177216 BR13: 
177220 


050647 
000302 


177146 
177150 


177120 
000302 


(5)+,(6)+ 
© Nata 


BR13 
#14, QASFATAL 
(R2) 


#123456,K1 
#050505,K5 
#K1+1,%5 
me. a 
+ + 
Ke #050647 


BR14 
AEt - ASF ATAL 


#123456,K1 
#050505,kK5 
#K1+1,%5 
(6)+,(5)+ 
#042456,K1 
TST3 

#16, 04$F ATAL 
(R2) 


-SEQ 0014 
;LOw OF RS TO LOW OF R6 


MOVE TO MAILBOX # *eeeee 14 aeneeee 
;SET MSGTYP TO FATAL ERROR 

FALSE R6 .BYTE TRANSFER 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 703 


3123456 
3050505 
HIGH OF R5 TO LOW OF R6 


MOVE TO MAILBOX # **%eeeee 15 aeeeene 
[SET MSGTYP TO FATAL ERROR 

FALSE R6 .BYTE TRANSFER 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 657 


3R5~-123456-ODD ADDRESS 
3R6-050505--.EVEN ADDRESS 
;LOW OF R6 TO HIGH OF R5 


sMOVE TO MAILBOX # «eka Kee 160 Kee RE 
SET MSGTYP TO FATAL ERROR 

FAILED LOW OF 6 TO HIGH OF 5,0R WRONG $TSTNM 
> TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 633 


.SBTTL TEST SEQ ODD-EVEN ADDRESS 


J RARER RRR AREER ERR ERE EEE ERE AER AEE EEREEEE EERE ERE Ee 


[TEST 3 TEST BYTE OPERATION WITH SEQ ODD-EVEN ADDRESS 


Ate ee ee PRR R REE EERE RRRERRREASARELASARR ERR ARERR RRR RRR RRA RARER RRR RRR SRR RRS R RSE SS S| 


TST3: 
000304 


177077 
000302 


177054 
000302 


@4STESTN 
#3, QASTE 


STN 
TST4- 1D. :BR TO 


K7,K7+1 

BRIS 

#17, Q4SF ATAL 
(R2) 


K7+1,K7 
BR16 

#20, 04$F ATAL 
(R2) 


UPDATE TEST NUMBER 
ieee CE ERROR? 

RROR HALT ON SEQ ERROR 
AME .WORD LOW TO HIGH 


MOVE TO MAILBOX # *wxeewee 17 wannnee 
7SET MSGTYP TO FATAL ERROR 

; SHOULD COMPARE LOW TQ HIGH 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 766 


COMPARE ODD TO .EVEN SAME .WORD 


MOVE TO MAILBOX # xeeeawe OF) aeannne 
SET MSGTYP TO FATAL ERROR 

:ODD TO .EVEN .BYTE FAILURE 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 755 





-MAIN, 


633 001720 
634 pres 


635 
636 001742 
637 des 


638 001764 
639 001772 
001774 


002106 
653 002110 
654 002112 


MACRO M1111 


126787 


126767 
001405 
012737 
005212 
000000 


126767 


126767 
001095 
012737 
005212 
000000 


126767 
001405 
012737 
005212 
000000 


126767 
001005 
012737 
005212 
000000 


177037 
000021 


177014 
000022 


176771 
000023 


176750 
000024 


176727 
000025 


176704 
000026 


000304 
000004 


175660 


177032 
000302 


177006 
000302 


176771 
000302 


176747 
000302 


176725 
000302 


176701 
000302 


000304 


27-SEP-79 16:56 PAGE 68-4 
TEST BYTE OPERATION WITH SEQ ODD=-EVEN ADDRESS 


BR16: 


BR17: 


BR20: 


BR21: 


BR2e: 


BR23: 


-SBTTL TEST THE CC BITS 


nis K7 
veos - FSF ATAL 


K10,K6 

BR20 

#22, QASFATAL 
(R2) 


K7+1,K10+1 
BR21 

#23, Q4$FATAL 
(R2) 


K10,K10+1 
BR2e 

#24 , ASF ATAL 
(R2) 


K10+1.K10+1 
BR23 

#25 ,QASFATAL 
(R2) 


K10,K7+1 
TST4 

#26, 0ASFATAL 
(R2) 


; SEQUENTIAL .BYTES 


;MOVE TO MAILBOX # *e#eeee 27 
;SET MSGTYP TO FATAL ERROR 
[ODD TO .EVEN FAILED 

: TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 744 


ReEkeent 


kketeae 22 


c waeaeee 


;MOVE TO MAILBOX # 
;SET MSGTYP TO FATAL ERROR 
;EVEN TO EVEN FAILED 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 733 


REEKEERE 


MOVE TO MAILBOX # *eeeeee 23 
Set MSGTYP TO FATAL ERROR 
;ODD TO ODD FAILED 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 722 


Rake KRE 


;MOVE TO MAILBOX # *eeKexe 2G 
;SET MSGTYP TO FATAL ERROR 

;LOW TO HIGH IN SAME .WORD FAILED 
; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 711 


Rea KREE 


;MOVE TO MAILBOX # *xexxee 25 
;SET MSGTYP TO FATAL ERROR 

;HIGH TO LOW IN SAME .WORD FAILED 
; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 700 


RekKKKRE 


7MOVE TO MAILBOX # *xe«xee 26 
;SET MSGTYP TO FATAL ERROR 
;.EVEN TO ODD FAILED,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 667 


ie 
SEQ 0015 


MAsAAAAARASLELZASASASLSASASASRSSESRS RRR R SARA RAR RRR RRR RRR RRR ARREARS RRR RRR RRR RRR RRR RRR RRS ES | 


“TEST 4 TEST THE CC BITS 


Mahe PeAAAASESSALALASLESASASLSRSSSRSRSASE SRR RRA RRR RR RRR RAR RRR ARR RRR RRR RRR RRR RARER SAE SS | 


TST4: 


caygh the, 
OASTESTN 


;UPDATE TEST NUMBER 
; SEQUENCE ERROR? 


Tstd- 12 ;BR TO ERROR HALT ON SEQ ERROR 
3SET STATUS 


STATUS 


;CLEAR STATUS 

































. - MACRO M1111 
14 TEST THE CC BIT 


103005 
002120 012737 
002126 005212 
000000 


656 002132 
102005 
002134 012737 
005212 


657 002146 
002146 001005 
002150 012737 
002156 005212 
002160 000000 


658 002162 


100005 
002164 012737 
002172 005212 
000000 


659 002176 000257 
660 002200 052767 


103405 




























{peli 





000027 


000030 


000031 


000032 


000017 


000033 


000034 


000035 


000036 


000302 


000302 


000302 


000302 


175570 


000302 


000302 


000302 


000302 
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BR33: 


BR34: 


BR35: 


BR37: 


BR33 
#27 , QASFATAL 
(R2) 
BR34 
#30, QA$FATAL 
(Ro) 
BR35 
#31, QASFATAL 
(R2) 


BR36 
#32, QA$FATAL 
(R2> 


#17,STATUS 


BR37 
#33, QASFATAL 
(R2) 
BR4O 
#34 ,QA$SFATAL 
(R2) 
BR41 
#35 , QASFATAL 
(R2) 


TST5 
#36, QASFATAL 
(R2) 


:MOVE TO MAILBOX # seeexee 27 
SET MSGTYP. TO FATAL ERROR 
‘ey SCOPE REPLACE HALT W/ 240 
: AND REPLACE NEXT INST W/ 766 


;MOVE TO MAILBOX # teeeewe 30 
;SET MSGTYP TO FATAL ERROR 
;V_NOT CLEAR 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 760 


sMOVE TO MAILBOX # *xxeene = 37 
;SET MSGTYP TO FATAL ERROR 

;Z_ NOT CLEAR 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 752 


;MOVE TO MAILBOX # *exeeee 32 

3d MSGTYP TO FATAL ERROR 

3N_NOT CLEAR 

; TO SCOPE REPLACE HALT W/ 240 

: AND REPLACE NEXT INST W/ 744 
CLEAR CONDITION CODES 

SET STATUS TO ONES 


sMOVE TO MAILBOX # seexnee 33 
;SET MSGTYP TO FATAL ERROR 

:C NOT SET 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 732 


sMOVE TO MAILBOX # *eexxee 34 
:SET MSGTYP TO FATAL ERROR 

:V NOT SET 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 724 


:MOVE TO MAILBOX # sexenee 35 
ser MSGTYP TO FATAL ERROR 

: 1 SCORE REPLACE HALT W/ 246 
* AND REPLACE NEXT INST W/ 716 


;MOVE TO MAILBOX # seexee 36 
;SET MSGTYP TO FATAL FRROR 
3N_NOT SET,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST wW/ 710 





eRe ee 


REERKEE 


aeeeaene 


ReRKREKE 


Rketkene 


Rete EKRE 


weeeer ie 


kaeertene 


a 
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TEST THE CC BITS 














RRR REE EER AREER EEE EAE RRR REE EEE HERE EE 


[TEST 5 TEST THAT A TRAP OCCURS ON A RESERVED INS 


J RAAARREAERARAERARARARAERARAARRRARARRRERARARAARRARAERRARRAAAAERARERARARRARRRARRAARAHARETADS 


TSTS: INC @ASTESTN UPDATE TEST NUMBER 
CMP #5 ,QASTESTN ; SEQUENCE ERROR? 
BNE RETA :BR TO ERROR HALT ON SEQ ERROR 
MOV ABUFF ,SP STACK POINTER SETUP 
MOV MRE TAH ,RTRAP [RETURN LOCATION 
oe th TRAPA RESERVED INSTRUCTION, SHOULD TRAP 
MOV #37 , QASFATAL ;MOVE TO MAILBOX # *eaenee 37) taeenee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT RESERVE INSTRUCTION DIDN'T TRAP,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 764 


-SBTTL TEST DEC OF STACK POINTER ON A TRAP OPERATION 


MASA ASAASAAL LSA ASRS SRSA RESSASER AS AS ELAS AS ERAS ARS RARE RAR AR RRS RRR RRR RRR RRS RRR RASS EDD 


[TEST 6 TEST DEC OF STACK POINTER ON A TRAP OPERATION 


MASSA ASARAASASZARAARSALASAASAASARASRESASERAS ARAL ASE SE RRR RRR ARERR RRR A RRR RRR RRR RRA E DDD ES 


RETAH: 


TST6: INC @FSTESTN ;UPDATE TEST NUMBER 
CMP #6 ,QASTESTN ; SEQUENCE ERROR? 
BNE TST7-12 ;BR TO ERROR HALT ON SEQ ERROR 
MOV MBUFF ,SP i; STACK POINTER SETUP 
MOV ARETB,RTRAP ;RETURN POINTER 
TRAPA RESERVED INSTRUCTION 
RETB: a A, aaa TEST DECREMENT OF SP 
MOV #40 , QASFATAL sMOVE TO MAILBOX # *eeeeee G0 teenene 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT :NOT DECREMENTED TWO WORDS,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 761 
.SBITL TEST THAT PROPER PC IS SAVED 


FEAR ARERR ERR REE EERE ERE ARAR AREER EREAREREEREEERE AERA E ERE RE 


; TEST 7 TEST THAT PROPER P.C. IS SAVED 


FARRER REE RARER EEE 


TST?: INC OASTESTIN UPDATE TEST NUMBER 
CMP #7 ,QAASTESTIN ; SEQUENCE ERROR? 
BNE TST10-12 BR TO ERROR HALT ON SEQ ERROR 
MOV BUFF , SP STACK POINTER SETUP 
MOV MRETC,.RTRAP [RETURN FROM TRAP POINTER 
INSTC: TRAPA ; TRAP ON THIS INSTRUCTION 
RETC: CMP - 4. ,BUFF=4 ; CHECK FOR INCREMENTED P.C. 
BEQ TST10 
MOV 441, WSFATAL :MOVE TO MAILBOX # seennee 4] teeenee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT ; INCORRECT P.C..OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 760 
.SBTTL TEST THAT ‘OLD'' CC AND PRI ARE PLACED ON STACK 


PET TT TTT TET TTET TTT TTT OCTET TTT TT TTC TTC LTT TTT TERT LEE ELE 


TEST 10 TEST THAT ‘‘OLD'' CC AND PRI ARE PLACED ON STACK 
LEAR EEE ERE RARER A RARER ERE EEAAEAEAEKAEAREEREAEARE EKER REAR eee eee eee 
TST10: INC aNSTESTN ;UPDATE TEST NUMBER 

CMP 10, SPSTESTN SEQUENCE ERROR? 


BNE Ti1=-12 :BR TO ERROR HALT ON SEQ ERRCR 







SEQ 0017 
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TEST THAT ‘OLD'' CC AND PRI ARE PLACED ON STACK SEQ 0018 
688 002466 012706 0005006 MOV BUFF ,SP ;SET UP 
689 002472 012767 002510 175310 MOV MRETD ,RTRAP ;SET UP 
690 002500 005067 175272 CLR CC ;CLEAR CC AND PRIORITY 
691 002504 000257 C 
$92 002506 000010 TRAPA ; TRAP 
693 002510 026727 175762 O00000 RETD: CMP BUF F-2,40 TEST THAT OLD STATUS WENT TO STACK 
$94 002516 001405 BEQ 1$ 
002520 012737 000042 000302 MOV 442, QASFATAL sMOVE TO MAILBOX # teeeeee 42 weennne 
002526 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
002530 000000 HALT ; INCORRECT STATUS 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 755 


695 002532 012706 000500 1$: MOV #BUFF ,SP sSET UP 

696 002536 912767 002556 175244 MOV MRETE, * RTRAP :SET UP 

697 002544 012767 000357 175224 MOV #357,CC ;SET PRIORITY 

698 002552 000277 SCC :SET CC 

699 002554 000010 TRAPA : TRAP 

700 002556 026727 175714 000357 RETE: CMP BUF F=-2,4357 : COMPARES STATUS ON STACK 

701 002564 001405 BEQ TST11 
002566 012737 000043 000302 MOV #43, aQ4SF ATAL sMOVE TO MAILBOX # *eeenee 43 teens 
002574 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
002576 000000 HALT ; INCORRECT STATUS ON STACK,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 732 


702 .SBTTL TEST THAT ‘NEW'' STATUS IS CORRECT 
703 IORI OIOISIIOIUISIOIOISIIOIDIOIIOIOIOIDIDIDIOIIOIIOIOIIOI IOI IIIS TITTIES ETSI IIIT ORI 
sTEst 77 TEST THAT ‘'NEW'' STATUS IS CORRECT 
IS EOISISIUIIISISISIOIOIIIOIDIOIOIOIDIOIDIOIDIUIDIDIOIOIDIOIOIOISITITISI ISI DISISISI ISI SI SITS SIITIDSIDISDEIDISISIMEISIDIUIDIDINIDIN On i tt 
002600 005237 000304 TST11: INC @A$STESTN ;UPDATE TEST NUMBER 
002604 022737 000011 000304 CMP #11, QA4$TESTN ;SEQUENCE ERROR? 
002612 001121 BNE STPP ;BR TO ERROR HALT ON SEG ERROR 
704 002614 012706 000500 MOV BUFF , SP 
705 002620 012767 002634 175162 MOV HRETF ,RTRAP 
706 002626 005067 175160 CLR RTRAP+2 :CLEAR FUTURE PRIORITY AND CC 
707 002632 000010 TRAPA 
708 002634 RETF: TEST FOR ‘'C’’ CLEARED 
709 002634 100005 BPL 1$ 
002636 012737 000044 000302 MOV #44 , QASFATAL sMOVE TO MAILBOX # *eeeeee G4 tanneee 
002644 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
002646 000000 HALT 7N NOT CLEARED 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 


710 002650 1$: 
002650 001005 BNE 2$ 
002652 012737 000045 000302 MOV #45 , VASFATAL sMOVE TO MAILBOX # seeeeee G5 taeenee 
2660 006212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
002662 000000 HALT 3Z_NOT CLEARED 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 753 
711 002664 2$: 
002664 102005 BvCc 3$ 
2666 012737 000046 000302 MOV #46, ASF ATAL 7MOVE TO MAILBOX # seeeeee G6 seeeens 
002674 005212 INC (R2) 7SET MSGTYP TO FATAL ERROR 
002676 000000 HALT ;V_NOT CLEARED 
> TO SCOPE REPLACE HALT wW/ 240 
; AND REPLACE NEXT INST W/ 745 
712 002700 3$: 





Nata a tet i A Ai PS nS Un 72 ca A Oe, a 
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TEST THAT ‘NEW'* STATUS IS CORRECT SEQ 0019 
002700 103005 BCC 4$ 

002702 012737 000047 000302 MOV #47 ,QASFATAL sMOVE TO MAILBOX # seeaeee 47 weeeeee 

002710 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 

002712 000000 HAL T ;C_NOT CLEARED 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 737 


713 002714 032767 000340 175054 4$: BIT #340,(C 3 TEST PRIORITY 
714 002722 001405 BEQ 5$ 
002724 012737 000050 000302 MOV #50, @ASFATAL sMOVE TO MAILBOX # s#eanee SOQ) taneene 
002732 005212 INC (R2) ;SET MSGTYP [0 hah ERROR 
002734 000000 HALT SPRIORITY NOT ZERO 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 726 
715 002736 012706 000500 5$: MOV #BUFF ,SP 
716 002742 012767 002760 175040 MOV MRETG,RTRAP 
717 002750 012767 000357 175034 MOV #357 ,.RTRAP+2 SET NEW ‘'CC'’ AND PRIORITY 
718 002756 000010 TRAPA ; TRAP HERE 
719 002760 RETG: 
720 002760 100405 BM! 1$ 
002762 012737 000051 000302 MOV #51 ,@ASFATAL ;MOVE TO MAILBOX # s#eenee 5] weeenee 
002770 005212 INC (Re) ;SET MSGTYP TO FATAL ERROR 
002772 000000 HALT 3N_NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 707 
721 002774 1$: 
002774 001405 BEQ 2$ 
002776 012737 000052 000302 MOV #52, @ASFATAL sMOVE TO MAILBOX # **eeKee 50) Raeeeee 
003004 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
003006 000000 HALT 3Z_NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 701 
722 003010 2$: 
003010 102405 BVS 3$ 
003012 012737 000053 000302 MOV #53, @A$FATAL sMOVE TO MAILBOX # seeenee 53 teaeeee 
003020 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 


005212 INC (R2) >SET MSGTYP TO FATAL ERROR 
000000 HALT :C NOT SET 
> TO SCOPE REPLACE HALT w/ 240 
> AND REPLACE NEXT INST W/ 665 
724 003040 016706 174732 4$: MOV CC,SP 
725 003044 042706 000017 BIC #17,SP 
726 003050 022706 000340 CMP #340,SP 


003056 STPP: 
003056 012737 000055 000302 MOV #55 ,@ASFATAL sMOVE TO MAILBOX # seeeeee 55 teeenee 
005212 INC (R2) ;SET MSGTYP 10 FATAL ERROR 
003066 0600000 HALT [PRIORITY WAS CHANGED,OR WRONG $TSTNM 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 651 
728 003070 ane 


7 174712 STPPA: MOV #12,10 
729 003076 005067 1747 12 





003022 000000 HALT ;V_NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT iNST W/ 6753 
723 003024 3$: 
003024 103405 BCS 4$ 
paanee 012737 000054 000302 MOV #54 ,@A$FATAL sMOVE TO MAILBOX # x*eeeee 54 keeeeee 


ee ee 


MAIN. 


730 
731 


752 
753 


MACRO M1111 
TEST THAT A 


005237 


005237 
022737 


000304 
000012 


000 
003156 
000056 


000304 
000013 


000500 
003206 


000474 
000057 


000304 
000014 


000500 
003256 


003256 
000060 


000304 
000015 


27-SEP=79 16:56 PAGE 68-9 
A TRAP OCCURS FOR A ‘’TRAP’’ INSTRUCTION 


000304 
174664 


174672 
000302 


000304 


174630 


000302 


000304 


174560 
175210 
000302 


000304 


-SBTTL TEST THAT A TRAP OCCURS FOR A ‘'TRAP’’ INSTRUCTION 


LRA REAR REE EREERRE ERR RRR ERE E RRR E RR ERR REE RARER Eee 
sTEST 12 TEST THAT A TRAP OCCURS FOR A ‘'TRAP’' INSTRUCTION 
SR en era ee ees eee eee ee ee 
TST12: INC OFSTESTN ; UPDATE TEST NUMBER 

CMP ALT @ASTESTN ;SEQUENCE ERROR? 


BNE 713-12 BR TO ERROR HALT ON SEQ ERROR 

MOV ne. 10 

CLR 12 

MOV #BUFF ,SP ;STACK POINTER SETUP 

MOV #RETA1,RTRAP1 ;RETURN LOCATION 

TRAP ;RESERVED INSTRUCTION, SHOULD TRAP 

MOV #56, QA$F ATAL sMOVE TO MAILBOX # *eeeee 56 Keeeeee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 

HALT TRAP DIDN'T TRAP,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 757 


RETA1: 
LRA AREREE ERR EAE AAEREREKAARRAKRAKRERARRAERERARARREEHRERERERRH EHH RHEE 
sTeST 15 TEST DEC OF STACK POINTER ON A TRAP OPERATION 


STARA KRAKERAERAARERARREARARERAEKRARARAREAERARAEARARARARAERARRERAARKAARAARAARRAHAERARERRERRR AED 


TST13: INC OFSTESTN UPDATE TEST NUMBER 
CMP #13, a4STESIN SEQUENCE ERROR? 


BNE TST14-i2 ;BR TO ERROR HALT ON SEQ ERROR 
MOV BUFF , SP STACK POINTER SETUP 
MOV #RETB1 ,RTRAP1 [RETURN POINTER 
TRAP RESERVED INSTRUCTION 
RETB1: so rf ss STEST DECREMENT OF SP 
MOV #57 , QASFATAL sMOVE TO MAILBOX # xeeeeee 57 teeeeKe 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT ;NOT DECREMENTED TWO WORDS,OR WRONG $STSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 
.SBTTL TEST THAT PROPER P.C IS SAVED 


SERRA ARARARARERETRARAKEEKRAEERKARAEAAREAERAAEAAERAAEAKRAARAAKAAEKAEAAAERAAERARAREAEARAERERA REARS 


STEST 14 TEST THAT PROPER P.C. IS SAVED 
PEAR RARER EERE ERE REET EERE RARER REE EEA EEE EEE 
TST14: INC OASTESTN ;UPDATE TEST NUMBER 
CMP #14 ,a4$TESIN ; SEQUENCE ERROR 
BNE TST15-12 :BR TO ERROR HALT ON SEQ ERROR 
MOV BUFF ,S© ;STACK POINTER SETUP 
MOV MRETC1,RTRAP1 [RETURN FROM TRAP POINTER 
TRAP ; TRAP ON THIS Nw od Ca 
RETC1: CMP #. ,BUFF-4 SCHECK INCREMENTED P 
BEQ TST15 
MOV #60, ASF ATAL SMOVE TC MAILBOX # seenexe 60 teeenne 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT ; INCORRECT P.C.,0R WRONG $TSTNM 


> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 760 
.SBTTL TEST THAT ‘‘OLD'’ CC AND PIR ARE PLACED ON THE STACK 


PAAR EAR AEE REET ERRERARAE RARER EEREAAAEAKARAR ARERR ERE HEHE 

TEST 15 TEST YHAT ‘OLD'’ CC AND PRI ARE PLACED ON STACK 

PERERA AEE ERAARARAAERARAERAAAEARAAAEARARAERHEA ARK E KARA ARERR Eee Ree Eee 

TST15: INC @ASTESTN ;UPDATE TEST NUMBER 
CMP #15 QASTESTN 7 SEQUENCE ERROR? 


SEQ 0020 








-MAIN, 


T16 


MACRO M1111 


27-SEP-79 


TEST THAT ‘NEW’ STATUS 


778 003540 
779 003546 
003559 
003556 
003560 


780 003562 
781 003566 
782 003574 
783 003602 
784 003604 


786 003620 


787 003634 
00 


788 003650 


103005 
012737 
005212 
000000 


oH 4 
1405 


102405 
012737 
005212 
000000 


000066 


000340 
000067 


000500 
003604 
000357 


000070 


000071 


000072 


000073 


174106 
000017 
000340 


000074 
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1S CORRECT 


000302 


174230 
000302 


174249 
174234 


000302 


000302 


000302 


000302 


000302 


4$: BIT 


5$: MOV 


RETG1: 


C$: 


3$: 


4$: MOV 


4$ 
#66 , ASF ATAL sMOVE TO MAILBOX # ***eee® 66 
(R2) ;SET MSGTYP TO FATAL ERROR 
;C_NOT CLEARED 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 737 
Spe ; TEST PRIORITY 
#67 , @ASFATAL ;MOVE TO MAILBOX # seeKaee 67 
(R2) ;SET MSGTYP TO FATAL ERROR 
;PRIORITY NOT ZERO 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 726 
BUFF , SP 


#RETG1,RTRAP1 


#357, RTRAP1+2 ;SET NEW ‘'CC'’ AND PRIORITY 


; TRAP HERE 
1$ 
#70, @ASFATAL MOVE TO MAILBOX # *kexxex 70 
(R2) :SET MSGTYP TO FATAL ERROR 
:N NOT SET 
: TO SCOPE REPLACE HALT W/ 240 
: AND REPLACE NEXT INST W/ 707 
2$ 
471, @ASFATAL :MOVE TO MAILBOX # *eeaxee 77 
(R2) :SET MSGTYP TO FATAL ERROR 
:Z NOT SET 
: TO SCOPE REPLACE HALT w/ 240 
: AND REPLACE NEXT INST W/ 701 
3$ 
#72, QASFATAL MOVE TO MAILBOX # **eeexe 72 
(R2) =SET MSGTYP TO FATAL ERROR 
:V NOT SET 
> TO SCOPE REPLACE HALT W/ 240 
> AND REPLACE NEXT INST W/ 673 
4$ 
#73, QASFATAL :MOVE TO MAILBOX # *eexxex 73 
(R2) *SET MSGTYP TO FATAL ERROR 
:€_NOT SET ; 
: TO SCOPE REPLACE HALT W/ 240 
> AND REPLACE NEXT INST W/ 665 
CC, SP 
#17,SP 
#340,SP 
TST1? 
#74, QASFATAL :MOVE TO MAILBOX # *exnee 74 
(R2) :SET MSGTYP TO FATAL ERROR 


RaRRAKRE 


RRKKKEEK 


KARR EE 


RARE 


eekeenene 


eRe RRE 


Raeaeeene 


SPRIORITY WAS CHANGED,OR WRONG $TSTNM 


> TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 651 


.SBTTL TEST THAT ALL COMB ‘'TRAP’’ WILL CAUSE A TRAP ON BR4S 


TTT TT TT TTT TTT TTT TTT TCT TTT TTC TTT TTT TL TTT ELE 


STEST 17 


TEST THAT ALL COMB ‘'TRAP’' WIL! CAUSE A TRAP 


SEQ 0022 
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TEST THAT ALL COMB ‘'TRAP’' WILL CAUSE A TRAP ON BR4S SEQ 0023 
FERRARA RARER EERE REREREERAAREARAREAERRERERARERERRAEERRERRR ARERR RK ERE EE RAE 

003714 005237 000304 ~. TST17: INC a#STESTN ;UPDATE TEST NUMBER 
003720 022737 000017 7000304 CMP #17, a#STESTIN = SEQUENCE ERROR? 
003726 001011 . BNE BR4S BR TO ERROR HALT ON SEQ ERROR 

795 003730 012767 104400 000012 MOV #TRAP RBI : INITIALIZE BASE TRAP INSTRUCTION 

796 003736 012767 003764 174070 MOV #RA1, 34 “RETURN FROM TRAP TO R 

797 003744 012706 000500 RC1: MOV #BUFF SP :SET UP STACK POINTER 

798 003750 104400 RB?: TRAP : ; TRAP INST WILL BE MODIFIED TO TRAP+377 

799 003752 BR4S: 
003752 012737 900075 000302 MOV #75, QMSFATAL = ;MOVE TO MAILBOX # seeeeee 75 seeenee 
003760 005212 INC (R25 :SET MSGTYP TO FATAL ERROR 
003762 000000 HALT : PREVIOUS INST FAILED TO TRAP,OR WRONG $TSTNM 


t TO SCOPE REPLACE HALT W/ 240 
No REPLACE NEXT INST W/ 761 


800 003764 005267 177760 RA1: INC RB) : INCREMENT TRAP INSTRUCTION 
801 003770 022767 104777 177752 CMP #104777,RB1 :TRAP+377 TG UPPER LIMIT 
802 003776 103362 BHIS —RC1 [HAVE WE TESTED ALL 
803 004000 012767 000036 174026 MOV #36, 34 
804 004006 005067 174024 CLR 36 
805 LAA RRA REAR EREREREEEREEE EKER RKERE EEE EERERAR EERE EE 
zTEST 20 TEST THAT A TRAP OCCURES ON AN “‘IOT’’ INSTRUCTION 
on set.” meters saieeee Saat Pam cc ee ae gaat) mae ek 
004012 005237 000304 TST20: INC @eSTESTN ;UPDATE TEST NUMBER 
004016 022737 000020 000304 CMP #20 OYSTESTIN s SEQUENCE ERROR? 
004024 001006 BNE sT21 - 12 [BR TO ERROR HALT ON SEQ ERROR 
806 004026 012706 000500 MOV peur :STACK POINTER SETUP 
807 004032 012767 004054 173760 MOV PRETAS RTRAP2 [RETURN LOCATION 
808 004040 000004 107 TRESERVE INSTRUCTION, SHOULD TRAP 
809 004042 012737 000076 000302 MOV #76, QHSFATAL § :MOVE TO MAILBOX # *xxanee 76 xeeneee 
004050 005212 INC (R25 :SET MSGTYP TO FATAL ERROR 
004052 000000 HALT [I0T DIDN'T TRAP,OR WRONG $TSTNM 


: TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 764 


810 004054 RETA2: 
811 DR RTT TTT TERRE ERR EERE EERE REE REREREEEREEEEEEE REE ERE 
STEST 21 TEST DEC OF STACK POINTER ON A TRAP OPERATION 
aay we seneeeten °° =. neh tak aaa hn ore eee 
004054 005237 000304 TST21: INC avSTE ;UPDATE TEST NUMBER 
004060 022737 000021 000304 CMP #21 ars Tesi S SEQUENCE ERROR? 
004066 001011 BNE Tst22 2-1 ‘BR TO ERROR HALT ON SEQ ERROR 
812 004070 012706 000500 MOV peur :STACK POINTER SETUP 
813 004074 012767 004104 173716 MOV eeTES RTRAPZ *RETURN POINTER 
814 004102 000004 107 ‘RESERVED INSTRUCTION 
B15 004104 020627 000474 RETBZ: CMP SP, ABUF F =4 [TEST DECREMENT OF SP 
816 004110 001405 BEQ TST22 
004112 012737 000077 000302 MOV #77, QASFATAL = ;MOVE TO MAILBOX # exes 77 aeenens 
004120 005212 INC (R25 *SET MSGTYP TO FATAL ERROR 
004122 HALT :NOT DECREMENTED TWO WORDS,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
Mo REPLACE NEXT INST W/ 761 
817 IIIT IIIT IIIT IIT TTI TIT TITTITITIT TTT Titi LiL LLL Lit LL LLL LLL LLL LLL 
“TEST 22 TEST THAT PROPER P.C. IS SAVED 
MASASAASAASLALASZAAZAZAESLES ESAS ESSSES SESE RSS SR SERRE SRE RRR SRR SER ERR SERRE RRR RRR RRS EERE ECR EES 
004124 005237 000304 . TST22: INC a#STESTN ;UPDATE TEST NUMBER 
004130 022737 000022 000304 CMP #22,QA$TESTN = SEQUENCE ERROR? 
004136 001012 BNE TST23-12 ‘BR TO ERROR HALT ON SEQ ERROR 
818 004140 012706 000500 MOV #BUFF , SP SSTACK POINTER SETUP 





MAIN. 


122 


MACRO M1111 


TEST THAT PROPER P.C. 


838 


845 


012767 
000004 
022767 
001405 
012737 
005212 
000000 


100005 
012737 
005212 


004154 
004154 
000100 


000304 
000023 
000500 
004234 
173546 
174236 
000101 


174170 
000102 


000304 
000024 


500 


000 
004 360 
173444 


000103 


27-SEP-79 16: +f * eae 68-13 


IS SAV 
173646 
174312 
000302 


000304 


173574 


000000 
000302 


173530 
173500 


000357 
000302 


000304 


173446 


000302 





SEQ 0024 
MOV MRETC2,RTRAP2 ;RETURN FROM TRAP POINTER 
IOT ; TRAP ON THIS INSTRUCTION 
RETC2: a wee [CHECK FOR INCREMENTED P.C. 
MOV #100,@4$FATAL ;MOVE TO MAILBOX # seennee 100 *eeenee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT ; INCORRECT P.C. WRONG $TSTNM 


,OR 
; oe SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 760 


PEE IUIIIOIIIUIIIISISISIISIIDIIIIIIIIOIIUOOIOOIIDIDIUIDIISIITIIIIOIUIOIIDIDIFIITEI III IDIISEIIIIOI IIIS DII IIR 


[TEST 23 TEST THAT ‘OLD'’ CC AND PRI ARE PLACED ON STACK 
FEAR EERE EERE REE KEE REE EEREEEREREKEKEREERAKEEERRERERERERERER REE REERER ED 
TS123: INC a#STESTN ;UPDATE TEST NUMBER 
CMP #23,a4STESTIN = SEQUENCE ERROR? 
BNE ste4-12 ‘BR TO ERROR HALT ON SEQ ERROR 
MOV BUF F ‘SET UP 
MOV oRETDS. RTRAPZ ‘SET UP 
CLR CC =CLEAR CC AND PRIORITY 
10T TRAP 
RETD2: CMP BUFF 2.40 ‘TEST THAT OLD STATUS WENT TO STACK 
MOV #101,@4SFATAL ;MOVE TO MAILBOX # *eeexee 101 seennee 
INC (R2) ‘SET MSGTYP TO FATAL ERROR 
HALT S INCORRECT STATUS 
* TO SCOPE REPLACE HALT W/ 240 
* AND REPLACE NEXT INST W/ 755 
1$: MOV #BUFF , SP ‘SET UP 
MOV WRETE2,RTRAP2 SET UP 
MOV #357,CC ‘SET PRIORITY 
SCC “SET CC 
10T : TRAP 
RETE2: CMP BUF E72. 1357 [COMPARES STATUS ON STACK 
MOV #102, a4SFATAL ;:MOVE TO MAILBOX # *eeaeee 102 seeeeee 
INC (R2) ‘SET MSGTYP TO FATAL ERROR 
HALT S INCORRECT STATUS ON STACK,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 732 


FERRER EERE ERE EERE ERE EERE EERE REREAD 


sTEST 24 TEST THAT ‘NEW’ STATUS IS CORRECT 


FREER AEE REE REE REE E EEE ERREE EERE EEEAEREEREEREEEEEREREREREREAAEEAEEEEREEEER EKER EE 


TST24: INC a#STESTN :UPDATE TEST NUMBER 
CMP #24,QM$TESIN SEQUENCE ERROR? 
BNE BR46 *BR TO ERROR HALT ON SEQ ERROR 
MOV WBUFF , SP 
MOV WRETF2,RTRAP2 
CLR RTRAP2+2 :CLEAR FUTURE PRIORITY AND CC 
RETF2: ¥ a :TEST FOR ‘'C’’ CLEARED 
MOV #103, a4SFATAL ;:MOVE TO MAILBOX # *texxee 103 seeeees 
INC (R2) “SET MSGTYP TO FATAL ERROR 
HALT *N NOT CLEARED 


; TO SCOPE REPLACE HALT W/ 240 
1$ ; AND REPLACE NEXT INST W/ 761 


-MAIN, MACRO M1111 27-SEP-79 
T24 TEST THAT ‘NEW’ STATUS 
001005 
Betas 
005212 

000000 


000104 


000105 


103005 
012737 
005212 
000000 


000106 


032767 000340 


000107 


849 004446 


000500 
004504 
000357 


000110 


000111 


102405 
012737 
005212 
000000 


000112 


858 004550 
004550 
004552 

560 005 Gi 5 


000113 
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1S CORRECT 


000302 


2$: 
000302 


3$: 
000302 


173330 4$: 
000302 


5$: 
173324 
173320 


RETG2: 


000302 


000302 


2$: 
000302 


3$: 
000302 


2$ 
#104 , QA#SFATAL 
(R2) 

3$ 

#105, @ASFATAL 
(R2) 


4$ 
#106, @4$FATAL 
(R2) 


nee 
#107, @4SFATAL 
(R2) 


WBUFF , SP 
ARE TG2,RTRAP2 
#357, RTRAP2+2 


1$ 

#110, @4SF ATAL 
(R2) 

2$ 

#111, @4$FATAL 
(R2) 

3$ 

#112, Q4$FATAL 
(R2) 


4$ 
#113, Q4SFATAL 
(R2) 


;MOVE TO MAILBOX # *eeawee = 104 
;SET MSGTYP TO FATAL ERROR 
3;Z_NOT CLEARED 

> TO SCOPE REPLACF HALT W/ 240 

; AND REPLACE NEXT INST W/ 753 


;MOVE TO MAILBOX # *#aaeee §=105 
SET MSGTYP TO FATAL ERROR 
:V_NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 745 


;MOVE TO MAILBOX # *##*aee §=106 
;SET MSGTYP TO FATAL ERROR 

:C_NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 737 

:TEST PRIOKITY 


;MOVE TO MAILBOX # *xeexee §=107 
;SET MSGTYP TO FATAL ERROR 
;PRIORITY NOT ZERO 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 726 


SET NEW ‘'CC’’ AND PRIORITY 
; TRAP HERE 


;MOVE TO MAILBOX # *eexeee 110 
;SET MSGTYP TO FATAL ERROR 
i3N_NOT SET 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 707 


;MOVE TO MAILBOX # **eeeee 177 
;SET MSGTYP TO FATAL ERROR 
:Z_NOT SET 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 701 


MOVE TO MAILBOX # *eeaxee 112 
;SET MSGTYP TO FATAL ERROR 
7V_NOT SET 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 673 


MOVE TO MAILBOX # saaenee 173 
SET MSGTYP TO FATAL ERROR 
:C NOT SET 


RakRKREE 


RReREKRE 


RaaRKEE 


RaARKKEE 


Rekkene 


KERKEKEK 


RaeRKKEE 


aeaeenee 


SEQ 0025 


MACRO M1111 


TEST THAT ‘NEW’ STATUS 


012737 
005212 
000000 


012767 
005067 


005237 
022737 
001006 
012706 
012767 
104000 
012737 
005212 
000000 


5 
012737 


173308 
000017 
000340 


000114 


000022 
173174 


000304 
000025 


000500 
004670 


000115 


000304 
000026 
000500 
004720 
000474 
000116 


000304 
000027 
000500 
004770 
004770 
000117 


IS 


000302 


173176 


000304 


173154 
000302 


000304 


173112 


000302 


000304 


173042 
173476 
000302 
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4$: 


SEQ 0026 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 665 


BIC #17,SP 
CMP #340, SP 
BEQ BR4 
BR46: 
MOV #114, @4SFATAL =MOVE TO MAILBOX # *eeeeee 114 sennene 
INC (R2) ‘SET MSGTYP TO FATAL ERROR 
HALT ‘PRIORITY WAS CHANGED,OR WRONG $TSTNM 
* TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 6517 
BR46A: MOV #22,20 +642 
CLR 22 HALT 
IIT RR TTT TI I RRR REE ERR EERE ER REE EE EH 
“TEST 25 TEST THAT A TRAP OCCURS ON AN EMT INS 
ate met ce” geneeaue - taeea TEE GUM i cae eee ee, 
TST25: INC arvSTE ;UPDATE TEST NUMBER 
CMP #25 QrSTESIN ; SEQUENCE ERROR? 
BNE TST 726 6-1 TO ERROR HALT ON SEQ ERROR 
MOV BUF F “STACK POINTER SETUP 
MOV MOU Sg ‘RETURN LOCATION 
EMT “RESERVE INSTRUCTIOM, SHOULD TRAP 
MOV #115, Q4SFATAL =MOVE TO MAILBOX # *eeenee 115 sennnne 
INC (R2) :SET MSGTYP TO FATAL ERROR 
HALT ‘EMT DIDN'T TRAP,OR WRONG $TSTNM 
+ TO SCOPE REPLACE HALT W/ 240 
eal * AND REPLACE NEXT INST W/ 764 
PRR IC TTT IRR RE ERRA ERE EEE EE EERE EER ARERR EERE ERE EE REE 
STEST 26 TEST DEC OF STACK POINTER ON A TRAP OPER 
angen nagar emo gee Sager a caren nit? Wieenemae teen” 
TST26: INC avSTEST :UPDATE TEST NUMBER 
CMP #26 Q#STESIN ; SEQUENCE ERROR 
BNE TST27=1 TO ERROR aT ON SEQ ERROR 
MOV #BUF F $ “STACK POINTER SETUP 
MOV 4RETB3,RTRAP3  :RETURN POINTER 
EMT SRESERVED INSTRUCTION 
RETB3: CMP SP , ABUF F =4 [TEST DECREMENT OF SP 
BEQ TST27 
MOV #116, @4SFATAL ;=MOVE TO MAILBOX # seexeee 116 tennene 
INC (R2) ‘SET MSGTYP TO FATAL ERROR 
HALT :NOT DECREMENTED TWO WORDS,OR WRONG $TSTNM 


‘ O SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 761 


SESS IOI ISOS IOI ISIOIISISIIIOUISI IOUS ISIISIIIOIONISUONITDDDINODDOUI EOD DOE iit 


2 RRA RARER ARAAAEEAEEERAEEAEREEERRAERKEREAKEEEEEAR AREER 


;UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
BR TO ERROR HALT ON SEQ ERROR 
+STACK POINTER SETUP 
they FROM TRAP POINTER 

RAP ON THIS INSTRICTION 
‘CHECK FOR INCREMENTED P.C. 


STEST 27 TEST THAT PROPER P.C. IS SAVED 
TST27: INC @ASTESTN 

CMP #27 aVSTESTN 

BNE 1$130 0-1 

MOV #BUF F 

MOV HUF SP 
RETC3: CMP #. ,BUFF=4 

BEQ T1730 

MOV #117, Q4SFATAL 


wkeneee 117 eeeneee 


;MOVE TO MAILBOX # 
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127 TEST THAT PROPER P.C. IS SAVED SEQ 0027 
005006 005212 INC (R2) SET MSGTYP TO FATAL ERROR 
005010 000000 HALT ; INCORRECT P.C.,0R WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 760 


R83 JRO RRAAARARERERERERARAARREARRARRAERERARERARAERRAREARERRAEAAEAEERAREEARKAEREHAREREREEHEEED 
“TEST 30 TEST THAT ‘OLD’ CC AND PRI ARE PLACED ON STACK 
fF EAAAAAERAARAARRAARRAARAARERRAERARRAARRARRAARRAARARAARAARRAARARKAARHRAERRERTHAREAERHEE ERS 
005012 005237 000304 TST30: INC QASTESTN ;UPDATE TEST NUMBER 
005016 022737 000030 000304 CMP #30,a4$TESIN = SEQUENCE ERROR? 
005024 001040 BNE 1$131-12 ‘BR TO ERROR HALT ON SEQ ERROR 
884 005026 012706 000500 MOV #BUF ‘SET UP 
885 005032 012767 005050 172770 MOV PRE TDS RTRAPS ‘SET UP 
886 005040 005067 172732 CLR CC ‘CLEAR CC AND PRIORITY 
887 005044 000257 CCC 
888 005046 104000 EMT TRAP 
889 005050 026727 173422 000000 RETD3: CMP BUF F-2,40 ‘TEST THAT OLD STATUS WENT TO STACK 
890 005056 001405 BEQ 1$ 
012737 000120 000302 MOV #120, a4SFATAL ;:MOVE TO MAILBOX # *#xeeee 120 seeeeee 
005066 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
005070 000000 HALT * INCORRECT STATUS 


; TO SCOPE REPLACE HALT W/ 240 
: - NEXT INST W/ 755 


891 005072 012706 000500 1$: MOV WBUFF,SP SET 

892 005076 012767 005116 172724 MOV ARETES,RTRAP3 = SET UP 

893 005104 012767 000357 172664 MOV #357,(C SSET PRIORITY 

894 005112 000277 SCC SSET CC 

895 005114 104000 EMT > TRAP 

896 005116 026727 173354 000357 RETE3: CMP BUFF -2,4357 = COMPARES STATUS ON STACK 

897 005124 001405 BEQ TST31 
005126 012737 000121 000302 MOV #121,a4SFATAL ;MOVE TO MAILBOX # *eeeeee 12] seecene 
005134 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 


005136 000000 HALT ; INCORRECT STATUS ON STACK,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 ‘ 
; AND REPLACE NEXT INST W/ 732 


898 PERERA ERE REE EERE REE REE REE EREKEREEEREERERERRE ERE REE EKEREEEREREEAE REE EERE ERE ERE 
STEST 31 TEST THAT ‘NEW’ STATUS IS CORRECT 
LARA ERE EERE REE REE EERE ERR REE ER ERAERERE ERE EKEHRE ERE EES 
005140 005237 000304 TST31: INC QASTESTN :UPDATE TEST NUMBER 
005144 022737 000031 000304 CMP #31 a*STESTN * SEQUENCE ERROR? 
005152 001117 BNE TS 152 2-1 12 ‘BR TO ERROR HALT ON SEQ ERROR 
899 005154 012706 000500 MOV #BUF F 
900 005160 012767 005174 172642 MOV PRETFS RTRAPS 
901 005166 005067 172640 CLR RTRAP3+2 :CLEAR FUTURE PRIORITY AND CC 
902 005172 104000 EMT 
903 005174 RETF3: :TEST FOR ''C'’ CLEARED 
904 005174 100005 BPL 1$ 
005176 012737 000122 000302 MOV #122, QMSFATAL :MOVE TO MAILBOX # *eeeeee 122 seeenee 
005204 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
005206 000000 HALT *C NOT 


CLEARED 
: TO SCOPE REPLACE HALT wW/ 240 
; AND REPLACE NEXT INST W/ 761 


905 005210 1$ 
005210 001005 BNE e$ 
005212 012737 000123 000302 MOV #123,a4$FATAL ;MOVE TO MAILBOX # *eexexe 123 seennes 
005220 005212 INC . (R2) SET MSGTYP TO FATAL ERROR 
005222 000000 HALT ;Z_NOT CLEARED 


: TO SCOPE REPLACE HALT W/ 240 
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TEST THAT ‘NEW’ STATUS IS CORRECT SEQ 0028 


; AND REPLACE NEXT INST W/ 753 


906 005224 2$: 
005224 102005 BVC 3$ 
005226 012737 000124 000302 MOV #124,aM$FATAL  ;MOVE TO MAILBOX # ss#eeee 124 aeeenne 
005234 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
005236 000000 HALT ;V_NOT CLEARED 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 745 
907 005240 3$ 
005240 103005 : BCC 4$ 
005242 012737 000125 000302 MOV #125,QA$SFATAL ;MOVE TO MAILBOX # *eeaeee 125 seeenns 
005250 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
005252 006000 HALT ;C_NOT CLEARED 
; TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 737 
908 005254 032767 000340 172514 4$: BIT #340,(C ZTEST PRIORITY 
909 005262 001405 BEQ $ 
5264 012737 000126 000302 MOV #126, QA$FATAL  ;MOVE TO MAILBOX # xeeeee 126 tenenne 
005272 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
005274 000000 HALT :PRIORITY NOT ZERO 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 726 
910 005276 012706 000500 5$: MOV #BUFF , SP 
911 005302 012767 005320 172520 MCV #RETG3,RTRAP3 
912 005310 012767 000357 172514 MOV #357,RTRAP3+2  ;SET NEW "'CC’’ AND PRIORITY 
913 005316 104000 EMT ; TRAP HERE 
914 005320 RETG3: 
915 005320 100405 I 1$ 
005322 012737 000127 000302 MOV #127, QASFATAL ;MOVE TO MAILBOX # *#xxeee 8127 xeennee 
005330 005212 INC (Re) ;SET MSGTYP TO FATAL ERROR 
005332 000000 HAL T 3N_NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 707 
916 005334 1$: 
005334 001405 BEQ 2$ 
005336 012737 000130 000302 MOV #130,a4$FATAL ;MOVE TO MAILBOX # seaaeee 130) xatenne 
005344 005212 INC (P2) 7SET MSGTYP TO FATAL ERROR 
005346 000000 HAL T 32_NOT SET 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 701 
917 005350 2$: 
005350 102405 BVS 3$ 
005352 012737 000131 000302 MOV #131,Q4$FATAL ;MOVE TO MAILBOX # ***axee 13] teeeeee 
005360 005212 iNC (R2) ;SET MSGTYP TO FATAL ERROR 
005362 000000 HALT :V_NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
> AND REPLACE NEXT INST W/ 673 
918 005364 3$: 
005364 103405 BCS 4$ 
005366 012737 000132 000302 MOV #132,QA4$FATAL ;MOVE TO MAILBOX # *eeeeex 152 teenene 
005374 005212 INC (Re) ;SET MSGTYP TO FATAL ERROR 
005376 000000 HALT >C NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 665 
919 005400 000257 4$: CCC 


920 005402 022767 000340 172266 CMP #340,C6 
921 005410 001405 BEQ T5732 





-MAIN. 


131 


MACRO M1111 


27=SEP=79 


TEST THAT ‘NEW’ STATUS 


012737 
005212 
000000 


005212 
090000 


103362 
012767 
005067 


000133 


177760 
104377 


000032 
172310 


000304 
000033 


000500 
005564 


000135 


000304 
000034 
000500 
005614 
000474 
000136 


16:56 PAGE 68-18 
IS CORRECT 


000302 


000304 


000012 
172354 


000302 


177752 


172312 


000304 


172244 
000302 


000304 


172202 


000302 


SEQ 0029 


RHEE 


#133, Q4SFATAL 
(R2) 


sMOVE TO MAILBOX # **exxwe §=133 

:SET MSGTYP TO FATAL ERROR 

*PRIORITY WAS CHANGED,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT wW/ 240 

; AND REPLACE NEXT INST W/ 653 


FERRARA REAR EERE KERR ARHERRERERREEERERERRERERRAEERERRREREREE RATERS 


s TEST 32 


TEST THAT ALL COMB EMT WILL CAUSE A TRAP 


MARS RARARAAASZASLSALSALALASLALARSLASAASLASASESALAL ESAS AS ARRAS SSA R ASRS ARR RR RRR SARA REESE SSD 


TST32: 





RA: INC 


avSTESTN ;UPDATE TEST NUMBER 

ros QYSTESTN :SEQUENCE ERROR? 

BR4? :BR TO ERROR HALT ON SEQ ERROR 
‘INITIALIZE BASE EMT INSTRUCTION 

‘RETURN FROM TRAP TO RA 

‘SET UP STACK POINTER 

STRAP INST. WILL BE MODIFIED TO EMT+377 


sMOVE TO MAILBOX # *xeeexee 134 
;SET MSGTYP TU FATAL ERROR 

: PREVIOUS INST FAILED TO TRAP,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 

i Ne REPLACE NEXT INST W/ 761 

; INCREMENT TRAP INSTRUCTION 

:EMT+377 TO EMT? 

sHAVE WE TESTED ALL 

eVES 

Cf 

;HALT 


#BUFF , SP 


RREEKKEK 


#134, Q4$FATAL 
(R2) 


RB 
#104377,RB 
RC 


432,30 
32 


PEAR ARRARREREEE EEE AAEEEREKKEKKERARERERERRREKEREREERAKREAAERRAERERERRERERAEAEAEERARERERE EEE 


: TEST 33 


TEST THAT A TRAP OCCURES ON AN ‘'TRACE-TRT** INS 


SERRA EERE EEE REE ERKEERE EEE EREEEEEEEKEEKEEKRE REE & 


TST33: 


RETAG: 


aYSTESTIN :UPDATE TEST NUMBER 
#33 avSTESIN 7 SEQUENCE ERROR? 
1S134 4-1 ‘BR TO ERROR HALT ON SEQ ERROR 
#BUF ee *STACK POINTER SETUP 
WRETAG,RTRAPG RETURN LOCATION 
‘RESERVED INSTRUCTION, SHOULD TRAP 
#135, Q4SFATAL *MOVE TO MAILBOX 4 xeawKee 135) Kakeeee 
(R2) :SET MSGTYP TO FATAL ERROR 
STRT DIDN'T TRAP,OR WRONG $TSTNM 


> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 764 


FRA ERAAEAAR EERE EERE EEAEAARAEAKRERAAAAEERAEAKRERRERERHK EKER EEE 


ZTEST 34 


TEST CEC OF STACK POINTER ON A TRAP OPERATION 


ca war sence wee wet awe ooo. 


TST34: 


RETB4: 


;UPDATE TEST NUMBER 
; SEQUENCE ERROR 
BR TO ERROR MALT = SEQ ERROR 


aA$TE 
+7 tgresm A 
STACK POINTER SETU 


rauri oor 
ARE TBS ,RTRAPS RETURN POINTER 
;RESERVED INSTRUCTION 
cars ; TEST DECREMENT OF SP 
#136, OA#SFATAL sMOVE TO MAILBOX # *exnne 1356) wxeeeee 
(R2) :SET MSGTYP TO FATAL ERROR 


WORDS ,OR WRONG $TSTNM 
TO SCOPE REPLACE HALT W/ 240 


NOT DECREMENTED TwO 
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TEST DEC OF STACK POINTER ON A TRAP OPERATION SEQ 0030 
: AND REPLACE NEXT INST W/ 761 
946 LRERARARAARAAEARARKEAHERRERERAERRARARARREARERARHRERRARARERAKREARRARAAREARAERARARARRRAARRA AES 
[TEST 35 TEST THAT PROPER P.C. IS SAVED 
a. tr: ae 8 86 hamente WaT wee. 
005634 005237 000304 TST35: INC aASTESTN :UPDATE TEST NUMBER 
005640 022737 000035 000304 CMP #35 SAS TESTN s SEQUENCE ERROR? 
005646 001012 BNE 1S156 6-1 ‘BR TO ERROR HALT ON SEQ ERROR 
947 005650 012706 000500 MOV #BUF ge ‘STACK POINTER SETUP 
948 005654 012767 005664 172132 MOV #RETC4,RTRAPS ; RETURN FROM TRAP POINTER 
949 005662 000003 TRT TRAP ON THIS INSTRUCTION 
950 005664 922767 005664 172602 RETC4: CMP #. ,BUFF=4 “CHECK FOR INCREMENTED P.C. 
951 005672 001405 BEQ TST 36 
005674 012737 000137 000302 MOV #137, a4SFATAL ;MOVE TO MAILBOX # *eexnee 137 seexeee 
005702 005212 INC (R2) “SET MSGTYP TO FATAL ERROR 
005704 006000 HALT S INCORRECT P.C.,OR WRONG $TSTNM 
* TO SCOPE REPLACE HALT W/ 240 
+ AND REPLACE NEXT INST W/ 760 
952 FERRARA ERE EE ERARERKERERERERAEARAAEAKEEREKEARARRAERRAERAERERRARARERRAERHERRRER ED 
STEST 36 TEST THAT ‘OLD'' CC AND PRI ARE PLACED ON STACK 
SERRE ARAEREEAERE ARERR ERERKERARERRERAARRAEAAERRARAKERRRARAEKAERAEREREARARARREHARERAEER EH 
005706 005237 000304 TST36: INC aASTESTN ;UPDATE TEST NUMBER 
005712 022737 000036 000304 CMP #36 Q¥STESTIN “SEQUENCE ERROR? 
005720 001040 BNE TST37=1 SBR TO ERROR HALT ON SEQ ERROR 
953 005722 012706 000500 MOV #BUFF , $ :SET UP 
954 005726 012767 005744 172060 MOV WRETD4,RTRAPG  :SET UP 
955 005734 005067 172036 CLR CC “CLEAR CC AND PRIORITY 
956 005740 000257 CCC 
957 005742 000003 TRT : TRAP 
558 005744 026727 172526 000000 RETD4: CMP BUFF-2,40 ‘TEST THAT OLD STATUS WENT TO STACK 
959 ‘TEST FOR ALL ZEROS 
960 005752 001405 BEG 1$ 
005754 012737 000140 000302 MOV #140,Q4$FATAL :MOVE TO MAILBOX # *kaeeee 140 teeeeee 
005762 005212 INC (R2) [SET MSGTYP TO FATAL ERROR 
005764 000000 HALT ‘INCORRECT STATUS 
* TO SCOPE REPLACE HALT W/ 240 
; + AND REPLACE NEXT INST W/ 755 
961 905766 012706 000500 1$: MOV #BUFF SP ‘SET UP 
962 005772 012767 006012 172014 MOV WRETE4.RTRAPG  :SET UP 
963 006000 012767 000357 171770 MOV #357,(C “SET PRIORITY 
964 006006 000277 SCC ;SET-SET CC 
965 006010 000003 TRT TRAP 
966 006012 026727 172460 000357 RETE4: CMP BUFF -2,4357 *COMPARES STATUS ON STACK 
967 006020 001405 BEQ TST37 
006022 012737 000141 000302 MOV #141,Q4SFATAL ;:MOVE TO MAILBOX # *eexeee 14] wexeeee 
006030 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
006032 000000 HALT ‘INCORRECT STATUS ON STACK,OR WRONG $TSTNM 
: TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 732 
968 ITI ITT TTT Titi t iii titi titi titi iti tititi i titi titi iri iti tit t titi i iit t titre t ieee ei 
“TEST 37 TEST THAT ‘NEW’ STATUS IS CORRECT 
SAAR AERA ERE ERE REA REERKAEREREERAARAAAEARAEAAAAEARERERTRAEHRR NAHE KAR e eRe Re eeRenee 
006034 005237 000304 TST37: INC a*STESTN :UPDATE TEST NUMBER 
006040 022737 000037 000304 CMP #37, QM4STESIN = SEQUENCE ERROR? 
006046 001121 BNE BR51 ‘BR TG ERROR HALT ON SEQ ERROR 
969 006050 012706 000500 , MOV #BUFF , SP 
970 006054 012767 006070 171732 MOV WRETF4 RTRAPSG 


971 006062 005067 171730 CLR RTRAP4+2 SCLEAR FUTURE PRIORITY AND CC 





137 


972 
974 


975 


976 


977 


986 


987 


MACRO M1111 


TEST THAT ‘NEW’ STATUS 


103005 
012737 
005212 
000000 


032767 


600142 


000143 


000144 


000145 


000150 


000151 


IS 


000302 


000302 


000302 


000302 


171620 
000302 


000302 


000302 


RETF4: 


3$: 


4$: 


5$: 


RETG4: 


es: 


27=SEP=79 16: gf ecr 68-20 


1$ 
#142, QA$FATAL 
(R2) 


2$ 
4143, QA$FATAL 
(Re) 


3$ 
4144, QA$FATAL 
(R2) 


4$ 
#145 ,@A$FATAL 
(R2) 


#340,CC 

5$ 

#146, a4$F ATAL 
(R2) 


BUFF , SP 
MRETGS ,RTRAPS 
4357 ,RTRAP4+2 


1$ 
#147, QASFATAL 
(R2) 


2$ 
#150, @4#$FATAL 
(R2) 


3$ 
#151 ,@ASFATAL 


STEST FQR Ct” 


;MOVE TO MAILBOX # 


CLEARED 


RRRKHKE 


“SET MSGTYP TO FATAL ERROR 


:C_NOT CLEARED 


142 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 


:MOVE TO MAILBOX # 


RKERKKE 


;SET MSGTYP TO FATAL ERROR 


;Z_ NOT CLEARED 


143 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 753 


:MOVE TO MAILBOX #4 


KRKKKEKE 


:SET MSGTYP TO FATAL ERROR 


3V_NOT CLEARED 


144 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 745 


;MOVE TO MAILBOX #4 


RaeeKKKS 


;SET MSGTYP TO FATAL ERROR 


;C_NOT CLEARED 


145 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 737 


; TEST PRIORITY 


:MOVE TO MAILBOX # 


RERKKEK 


;SET MSGTYP TO FATAL ERROR 
;PRIORITY NOT ZERO 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 726 


SET NEW ‘'CC’’ AND PRIORITY 


; TRAP HERE 


:MOVE TO MAILBOX # 


RRKEEKKKE 


;SET MSGTYP TO FATAL ERROR 


>N_NOT 


146 


147 


SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 707 


sMOVE TO MAILBOX # 


RERKEEE 


;SET MSGTYP TO FATAL ERROR 


32 NOT SET 


150 


E 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 701 


sMOVE TO MAILBOX # 


eeaaeanen 


15% 


kaenenane 


ReeREEE 


KekaREREE 


RekKREE 


eae KE 


Skeeneee 


Reeenene 


eeeeenee 


SEQ 0031 
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137 TEST THAT ‘NEW’ STATUS IS CORREC SEQ 0032 
006254 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
006256 000000 HALT ;V_NOT SET 


> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 673 


988 006260 3$: 
006260 103405 BCS 4$ 
006262 012737 000152 9000302 MOV #152,Q4$FATAL ;MOVE TO MAILBOX # *##enee 152 eenenese 
006270 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
006272 000000 HALT :C NOT SET 
* TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 665 
989 006274 016706 171476 4$: MOV CC, SP 
990 006300 042706 000017 BIC #1?,SP 
991 006304 022706 000340 CMP #340,SP 
992 006310 001405 BEQ BRS1A 
006312 BRS1: 
006312 012737 000153 000302 MOV #153, Q4$FATAL MOVE TO MAILBOX # *eewnee 153 seeeene 
006320 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
006322 000000 HALT PRIORITY WAS CHANGED,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 651 
993 006324 012767 000016 171462. BRSIA: MOV oe 


99% 006332 005067 171460 CLR 
996 :PDP=11 ILLEGAL AND ADDRESS INSTRUCTION TEST 
997 ZALL INSTRUCTIONS THAT ARE >} 
998 :SHOULD TRAP TO LOCATION 10, THE 
999 zPC THAT POINTS TO THE fatine INSTRUCTION 
os ;SHOULD BE PLACED ON THE STACK 
1002 TERRE RRR EEE REE REE REE EERE ERE ERE REE EEE EERE ERE ERE ee 
STEST 40 TEST THAT A TRAP OCCURS ON AN ILLEGAL INS 
LEAR RRR REE ERA KE EERE EERE RARER REE EERE EERE ER ER ER EEE 
006336 005237 000304 TST4O: INC a4#$TESTN ;UPDATE TEST NUMBER 
006342 022737 000040 000304 CMP #40, QASTESTN :SEQUENCE ERROR? 
006350 001006 BNE TST41- le [BR TO ERROR HALT ON SEQ ERROR 
1003 006352 012706 000500 MOV teu FF :STACK POINTER SETUP 
1004 006356 012767 006400 171424 MOV oar rag. ATAM [RETURN LOCATION 
1005 006364 000100 JMP %0 S ILLEGAL INSTRUCTION, SHOULD TRAP 
1006 006366 012737 000154 000302 MOV #154, a4$FATAL :MOVE TO MAILBOX # *eenaee 154 exneene 
006374 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
006376 000000 HAL T Z ILLEGAL INSTRUCTION DIDN'T TRAP,OR WRONG $TSTNM 
+ TO SCOPE REPLACE HALT W/ 240 
+ AND REPLACE NEXT INST W/ 764 
1007 00640u  RETAS: 
1008 SAAR EEA ERA EREEAERAAERERRERERAE TERE REE RARER AREER EE ES 
=TEST 41 TEST DEC OF STACK POINTER ON A TRAP OPERATION 
mati sete atae twit aah. ie 
006400 005237 000304 TST41: INC @4STESIN ;UPDATE TEST NUMBER 
006404 022737 000041 000304 CMP #41 ; AASTESTN S SEQUENCE ERROR? 
12 001011 BNE TsTh2- le ‘BR TO ERROR HALT ON SEQ ERROR 
1009 006414 012706 000500 MOV #BUF :STACK POINTER SETUP 
1010 006420 012767 006430 171362 MOV PRE TRS RTRAP SRETURN POINTER 
1011 006426 000100 JMP 20 “RESERVED INSTRUCTION 
1012 006430 020627 000474 RETBS: CMP oP "7 ali “TEST DECREMENT OF SP 
1013 006434 001405 BEQ TST42 
006436 012737 000155 000302 MOV #155, a#SFATAL ;:MOVE TO MAILBOX # *#eneee 155 seenees 
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TEST DEC OF STACK POINTER ON A TRAP OPERATION SEQ 0033 
006444 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
006446 000000 HALT ;NOT DECREMENTED TWO WORDS,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 
1014 LAR R RR EER RE REEEEE RRR REE EERERERERREEERE RARE RRA ERRE ERR EERE RARER AER Ee 
TEST 42 TEST THAT PROPER P.C. IS SAVED 
LER ERE EERE ERE EERE REE EERE REE EERE REET E ER RATE eee 
006450 005237 900304 TST42: INC a#$TESTN UPDATE TEST NUMBER 
006454 022737 000042 000304 CMP He ; SEQUENCE ERROR? 
006462 001012 BNE 143-12 ‘BR TO ERROR HALT ON SEQ ERROR 
1015 006464 012706 000500 «+ MOV WRUF F SP :STACK POINTER SETUP 
1016 006470 012767 006500 171312 MOV #RETCS, RTRAP RETURN FROM TRAP POINTER 
1017 006476 000100 JMP x0 STRAP ON THIS INSTRUCTION 
1018 006500 022767 006500 171766 RETCS: CMP #. ,BUFF=4 ;CHECK FOR INCREMENTED P.C. 
1019 006506 001405 BEQ TST43 
006510 012737 000156 000302 MOV #156, BASF ATAL sMOVE TO MAILBOX # xeeewee 156 teetene 
006516 005212 INC (R2) :SET MSGTYP TO FATAL ERROR 
006520 000000 HALT ; INCORRECT P.C.,OR WRONG STSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 760 


1020 ORIG IUIUIIIDIUIIIUIOIIOIOIOIIOIDIIIUISIUIUIDIDIUIDIDIDIOIIISISIOIIOIIDIUIUIDIDIUIIOUIOIIOOIIIIO IDOE nen tenis 
TEST 43 TEST THAT ‘OLD*' CC AND PRI ARE PLACED ON STACK 
OUOIOIIIUIIIIIS IOS IIIIUIIIIOIUIUIUIDIOIOIOIOIOIOIOIIIUIIDIUIUIDIDIDIOIUIOIDIIIOISIDIDIDOIDIDIUIDIOISIDIDIDIIN INDIE Onin e 
006522 005237 000304 TST43: INC OASTESTN ;UPDATE TEST NUMBER 
006526 022737 000043 000304 CMP #43 ,QA$STESIN ; SEQUENCE ERROR? 
006534 001040 BNE TST44-12 [BR TO ERROR HALT ON SEQ ERROR 
1021 006536 012706 000500 MOV #BUF F , SP SET UP 
1022 006542 012767 006560 171240 MOV #RETDS ,RTRAP ;SET UP 
1023 006550 005067 171222 CLR cc :CLEAR CC AND PRIORITY 
1024 006554 000257 ccc 
1025 006556 000100 JMP x0 ; TRAP 
1026 006560 026727 171712 OO00000 RETDS: CMP BUFF -2,40 ;TEST THAT OLD STATUS WENT TO STACK 
1027 006566 001405 BEQ 1$ 
006570 012737 000157 000302 MOV #157, QASFATAL sMOVE TO MAILBOX # teeneee 157 eewenwe 
006576 005212 INC (R2) :SET MSGTYP TO FATAL ERROR 
006600 000000 HALT ; INCORRECT STATUS 


; TO SCOPE REPLACE HALT W/ 240 
r- : “ee NEXT INST W/ 755 


1028 006602 012706 000500 1$: MOV BUFF , SP SET 
1029 006606 012767 006626 171174 MOV WRETES,RTRAP =: SET-UP 
1030 006614 012767 000357 171154 MOV #357,CC ;SET PRIORITY 
1031 006622 000277 SCC SET CC 
1032 006624 000100 JMP x0 ; TRAP 
1033 006626 026727 171644 000357 RETES: (CMP BUF F-24357 ;COMPARES STATUS ON STACK 
1034 006634 001405 BEQ TST44 
006636 012737 000160 000302 MOV #160, Q4$F ATAL sMOVE TO MAILBOX # *eeenee 160 teeenee 
006644 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
006646 000000 HALT ; INCORRECT STATUS ON STACK,OR WRONG $TSTNM 
> TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 732 
1035 FARRAR ERA ERE RRR ARREAERERRERERREKEREAEEAAEAEREEAEREAERAAERRAREER RRR RARER REE eee 
ZS TEST 44 TEST THAT ‘NEW’ STATUS IS CORRECT 
DERE REAR R ERE EEEE EERE RAE EEEKREER EKER EKER RE Re Ree eee eee 
006650 005237 000304 TST44: INC @A4$STESTN ; UPDATE TEST NUMBER 
006654 022737 000044 000304 CMP #44 ,QASTESTN Oe ER ERROR? 
006662 001117 BNE TST45=-12 TO ERROR HALT ON SEQ ERROR 
1036 00666, 012706 000500 MOV BUFF ,SP 


1044 006750 


1054 007060 


MACRO M1111 
TEST THAT ‘NEW’ STATUS 


012767 
005067 
000100 


103005 
012737 
005212 
000000 


032767 


006704 
171110 


000161 
000162 
000163 
000164 


000357 
000165 


000590 
007030 
000357 


000166 


000167 


171112 


000302 


000302 


000302 


000302 


171004 
000302 


170770 
170764 


000302 


000302 


T 


RETFS: 


es: 


3$: 


4$: 


5$: 


RETGS: 


2%: 


27=SEP=79 16:56 PAGE 68-23 
IS CORREC 


#RETES RTRAP 
RTRAP +2 =CLEAR FUTURE PRIORITY AND CC 


; TEST FOR *'C’’ CLEARED 


1$ 
#161, GASFATAL sMOVE TO MAILBOX # ‘*#*eeee = 16] 
(R2) SET MSGTYP TO FATAL ERROR 
;C NOT CLEARED 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 


2$ 
#162, @04$F ATAL s;MOVE TO MAILBOX # *#eeeee = =162 
(R2) SET MSGTYP TC FATAL ERROR 

32 NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 753 


3$ 
#163,Q4$FATAL ;MOVE TO MAILBOX # teennee 163 
(R2) :SET MSGTYP TO FATAL ERROR 

7V NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 745 


4$ 
#164,@MSFATAL ;MOVE TC MAILBOX # *#e*ee% = 164 
(Re) ;SET MSGTYP TO FATAL ERROR 
:C_NOT CLEARED 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 737 
le i TEST PRIORITY 


#165, a4SFATAL :MOVE TO MAILBOX # *eexeee 165 
(R2) ‘SET MSGTYP TO FATAL ERROR 
‘PRIORITY NOT ZERO 
> TO SCOPE REPLACE HALT W/ 240 
> AND REPLACE NEXT INST W/ 726 
#BUFF SP 
#RETGS ,RTRAP 
#357,RTRAP+2 ° :SET NEW ‘'CC’’ AND PRIORITY 
%0 STRAP HERE 


1$ 
#166, a4SF ATAL ;MOVE TO MAILBOX # *xeaenee §=6166 
(R2) ;SET MSGTYP TO FATAL ERROR 

iN NOT SET 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 707 


2$ 

#167, aA$FATAL ;MOVE TO MAILBOX # ‘*#eaee* = 6167 

(R2) ;SET MSGTYP TO FATAL ERROR 
32Z_NOT SET 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 703 





eeeeeane 


Reeeene 


aaeekene 


Raeeeee 


eekeeee 


Reeennt 








1059 


1071 
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144 TEST THAT ‘NEW’ STATUS IS CORRECT SEQ 0035 
05 3$ 
007062 012737 000170 000302 MOV #170 ,aA$FATAL ;MOVE TO MAILBOX # seaenee 170 seannen 
007070 00521 INC (R2) ;SET MSGTYP TO FATAL ERROR 
007072 HALT :V_NOT SET 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 673 
1055 007074 3$: 


005237 
022737 
001006 


012706 
012767 


004000 
012737 
005212 
000000 


005237 
022737 




















4$ 
000171 000302 MOV #171, Q4$FATAL s;MOVE TO MAILBOX # *#eeHee 17] teen ee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT :C NOT SET 


* TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 665 
170662 4$: MOV CC, SP 
000357 CMP #357, SP 
















BEQ TST4 

000172 000302 MOV #172,QA$FATAL ;MOVE TO MAILBOX # seeexee 8172 sennnee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT ;PRIORITY WAS CHANGED,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 653 


PRR REE EEE RARER ARERR EKER ARERERREREAAEAAEERERAERRAEEREEKEREER EEK EERE REE 


“TEST 45 TEST THAT A TRAP OCCURES ON ALL ILLEGAL INS 
FRR EAA ERE EREAREEREEREREARERERER EERE EERE ED 
000304 TST45: INC a#STESTN ;UPDATE TEST NUMBER 
000045 000304 CMP #45, a4$TESTN SEQUENCE ERROR? 
BNE TST46-12 =BR TO ERROR HALT ON SEQ ERROR 
000500 MOV #BUFF , SP *STACK POINTER SETUP 
007176 170626 MOV WRETH5,RTRAP = : RETURN LOCATION 


JSR %0,%0 ‘RESERVED INS, SHOULD T 

000173 000302 MOV #173, @#SFATAL ;MOVE TO MAILBOX # Goperae 173 wawwees 
INC (R2) “SET MSGTYP TO FATAL ERROR 
HAL T [DIDN'T TRAP,OR WRONG $TSTNM 


TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 764 


RETHS: 
FERRE ERE REAR ERE AREER ERE KERR AREER ERAEREREEAERAEEKE KEKE REE EE 
: TEST 46 TEST DEC OF STACK POINTER ON A TRAP OPERATION 
DEAR REE EERE RARE ERAAEEERAKKERRAEREEAEKERRAEREREREREA EAE RRE RE  ee 
000304 TST46: INC @4$TESTN ;UPDATE TEST NUMBER 
000046 000304 CMP #46, aASTESTN ; SEQUENCE ERROR 
BNE TST47-12 ‘BR TO ERROR aT ON SEQ ERROR 
000500 MOV #BUFF ,SP ZSTACK POINTER SETUP 
007226 170564 MOV #RETJ,RTRAP ;RETURN POINTER 
JSR P ;RESERVED INS 
000474 RETJ: aa cow ;TEST DECREMENT OF SP 
000174 000302 MOV #174, QASFATAL sMOVE TO MAILBOX # *eeexee 174 wanteee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT :NO! DECREMENTED TWO WORDS,OR WRONG $71STNM 


; AND REPLACE NEXT INST W/ 761 


PITIIIIIIIITI ITIL ITLL TILL LLL LLL LLL LL LLL LLL 
TEST 47 TEST THAT PROPER P.C. IS SAVED 
eer titi iii titi titi iti ttiiiiiiiiiiiiitiiiii iii iii titi trier t reer reece, 
000304 TST47: INC @ASTESTN ;UPDATE TEST NUMBER 
0047 CMP #47 ,QASTESTN ; SEQUENCE ERROR? 
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147 TEST THAT PROPER P.C. IS SAVED SEQ 0036 

007260 001012 BNE TST50=12 ;BR TO ERROR HALT ON SEQ ERROR 

1072 007262 012706 000500 MOV BUFF ,SP STACK POINTER SETUP 

1075 007266 012767 007276 170514 MOV #RETK ,RTRAP + RETURN FROM TRAP POINTER 

1074 007274 004000 INSTK: JSR %0,%0 TRAP ON THIS INS 

1075 007276 022767 007276 171170 RETK: CMP #INSTK+2,BUFF=4 :CHECK FOR INCREMENED P.C. 

1076 607304 001405 BEQ TST5 
007306 012737 000175 000302 MOV #175 ,QM$SFATAL ;MOVE TO MAILBOX # *eeanee 175 sanewes 
007314 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 


007316 000000 HALT : INCORRECT P.C.,0R WRONG $TSTNM 
. ; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 760 


1077 
1073 . TUIDRAIGIEIIIOIOIOIIOIIOIIISIIDIOIIIOIOIOIOIOIDIDIUIOIUIOIUIOIOIOIOIOIOIDIDIDIDIDIOIOIDIIDIDIUICIOIIDIDIDIDIDIDIDOIDIDINIDIDININOIID nn nna tnt 
sTEST 50 TEST THAT ‘OLD'’ CC AND PRI ARE PLACED ON STACK 
Sue Get cs GNGtETE Co 0) MARE TERT OME ee ee ee 
007320 005237 000304 TSTSO: INC @AM$STESTN UPDATE TEST NUMBER 
007324 022737 000050 000304 CMP #50 att saa SEQUENCE ERROR? 
7332 001040 ; BNE TST51=1 BR TO ERROR HALT ON SFQ ERROR 
1079 007334 012706 000500 MOV ABUFF , sé iSET UP 
1080 067340 012767 007356 170442 MOV #RETLRTRAP 7 SET UP 
1081 007346 005067 170424 CLR cc CLEAR CC AND PRIORITY 
1082 007352 000257 ccc 
1083 007354 004000 JSR %0,%0 ; TRAP 
1084 007356 026727 171114 O00000 RETL: (CMP BUFF -2,40 TEST THAT OLD STATUS WENT TO STACK 
1085 007364 001405 ‘ BEQ 
097366 012737 000176 000302 MOV #176,QM$FATAL ;MOVE TO MAILBOX # xeeeeee 176 seeenns 
007374 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
007376 000000 4 HALT zs INCORRCT STATUS 
: é ; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST Ws 755 
1086 007400 012706 000500 ‘ 1$: MOV ABUFF , SP :SET UP 
1087 007404 012767 007424 170576 MOV #RETM,RTRAP :SET UP 
1088 007412 012767 000357 170356 MOV #357 ,CC ;SET PRIORITY 
1089 007420 000277 SCC sSET CC 


1090 007422 004000 JSR %0,%0 ; TRAP 





MAIN. MACRO M1111 


TEST THAT ‘OLD’ CC AND PR 


1092 007424 
1093 007432 


007434 

007442 

007444 
1094 

007446 

007452 

007460 
1a ries 
1096 0074 
1097 007274 


1101 
1102 
00 


1103 


026727 


171046 
000177 


000304 
000051 


000500 
007502 
170312 


000200 
000201 
000202 
000203 


170210 
000204 


000500 
007624 
000357 


ARE 
000357 
000302 


000304 


170314 


000302 


000302 


000302 


000302 


000302 


27=SEP=79 bf 56 PAGE 69 


PLACED ON STACK 





SEQ 0037 


; COMPARES STATUS ON STACK 


;MOVE TO MAILBOX # seeeeee = 177 
;SET MSGTYP TO FATAL ERROR 
; INCORRECT STATUS ON STACK,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 732 


aeeanee 


PTTTTTITITITITITILILELTT LTT LTTE LETT TIT TTT LITTLE 


TEST THAT ‘NEW’ STATUS IS CORRECT 


at. er. aebeeetn aaa Onat tame. +. oe 


RETM: CMP BUF F=2,4357 
BEQ TST51 
MOV #177, QASFATAL 
INC (R2) 
HALT 

sTEST 51 

TST51: INC AF$TEST 
CMP #51 SS TESTN 
BNE TST§2=12 
MOV ABUFF ,SP 
MOV #RETN.RTRAP 
CLR 
JSR %0,%0 

RETN: 
BPL 1$ 
MOV #200, BASF ATAL 
INC (R2) 
HALT 

1$: 
BNE 2$ 
MOV #201, a4$F ATAL 
INC (R2) 
HALT 

23: 
BYVC 3$ 
MOV #202, 0A$F ATAL 
INC (R2) 
HAL T 

3$: 
BCC 4$ 
MOV #203, @4$F ATAL 
INC (R2) 
HALT 

4$: MOV CC,%0 
BEQ 
MOV #204, a04$F ATAL 
INC (R2) 
HALT 

5$: MOV A#BUFF ,SP 
MOV #RETO, “RTRAP 
MOV #357 RTRAP+2 
JSR 20,20 


RETO: 


;UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
7BR TO ERROR HALT ON SEQ ERROR 


RTRAP+2 ;CLEAR FUTURE PRIORITY AND CC 


;TEST FOR ‘'C’’ CLEARED 


sMOVE TO MAILBOX # xeeenne 
;SET MSGTYP TO FATAL ERROR 
;C_NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 


200 


Keane ne 


zsMOVE TO MAILBOX # *#eawene kkkhene 
;SET MSGTYP TO FATAL ERROR 

:Z_NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 753 


201 


;MOVE TO MAILBOX # *eeeeee 202 eeenene 
;SET MSGTYP TO FATAL ERROR 
;V_NOT CLEARED 


: TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 745 


203 


eeeeaeee 


:MOVE TO MAILBOX # *xennne 
;SET MSGTYP TO FATAL ERROR 
;C_NOT CLEARED 

> TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 737 
; TEMP STORAGE 


sMOVE TO MAILBOX # sxunnne 
7SET MSGTYP TO FATAL ERROR 
[PRIORITY NOT ZERO 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 727 


Raeeeene 


204 


;SET NEW ‘'CC’’ AND PRIORITY 
; TRAP HERE 


-MAIN. MACRO M1111 27-SEP-79 
151 TEST THAT “NEW'* STATUS 
1111 007624 100405 
7626 012737 000205 
007634 005212 
007636 
1112 007640 
007640 001405 
007642 012737 000206 
007650 005212 
007652 000000 
1113 007654 
007654 102405 
007656 012737 000207 
007664 005212 
007666 
1114 007670 
007670 103405 
007672 012737 000210 
77 005212 
007702 
1115 007704 016700 170066 
1116 007710 022700 000357 
1117 007714 1405 
007716 012737 000211 
007724 005212 
007726 
1118 
1119 
007730 005237 000304 
007734 022737 000052 
007742 104 
1120 007744 005037 177766 
1121 007750 005737 177766 
1122 0077 001405 
007756 012737 000212 
7764 212 
007766 
1123 007770 0127 000500 
1124 007774 012767 010020 
1125 010002 005767 167773 
1126 01 012737 000213 
010014 005212 
010016 


16:56 PAGE 69-1 
RECT 


IS COR 


000302 


000302 


000302 


000302 


000302 


000304 


000302 


170002 
000302 


2$: 


3$: 


4$: 


1$ 
#205, ASF ATAL 
(R2) 

2$ 

#206, @4$FATAL 
(R2) 

3$ 

#207, @ASFATAL 
(Re) 

4$ 

#210, @4$FATAL 
(R2) 


CC,%0 

#357 ,%0 

TST 

#211, Q4$F ATAL 
(R2) 


sMOVE TO MAILBOX # sHeanne 
:SET MSGTYP TO FATAL ERROR 
3N NOT SET 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 710 


205 


;MOVE TO MAILBOX # seeaeee 206 
;SET MSGTYP TO FATAL ERROR 

;Z_ NOT SET 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 702 


sMOVE TO MAILBOX # *xeanne 
;SET MSGTYP TO FATAL ERROR 
;V_NOT SET 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 674 


207 


sMOVE TO MAILBOX # **eKeK® 
:SET MSGTYP TO FATAL ERROR 
< TO SCOPE REPLACE HALT W/ 240 
+ AND REPLACE NEXT INST W/ 666 


210 


sMOVE TO MAILBOX # kunnen 
;SET MSGTYP TO FATAL ERROR 


211 


SEQ 0038 


eaeeaneee 


eaeeene 


RaeeRERE 


ReKRKKES 


KRRKKKE 


;PRIORITY WAS CHANGED,OR WRONG $TSTNM 


: TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 654 


MAAR RALESLSALASA 220 SASS SESSSSSAR SESSLER RA SERS R ARES ERE R RS RRR RRR RRR RRR RRR RR RRR RAS SASS ED 


TEST THAT A TRAP OCCURES ON AN ILLEGAL ADDRESS 


JAAR AKER EERE EEE RE RARER AREER EERE 


“TEST 52 
TSTS2: 


1$: 


INC 


@ASTESTN 

#52 ,QAMSTESTN 
ERRP1 

a4 CPUERR 
nem 


$ 
#212, QM$FATAL 
(R2) 


BUFF ,SP 
MRETP, ;RTRAPS 


#213, QASFATAL 
(R2) 


UPDATE TEST NUMBER 
SEQUENCE ERROR? 
;BR TO ERROR HALT ON SEQ ERROR 


;CLEAR CPU ERROR REGISTER 


:VERIFY THAT IT CLEARED 


;MOVE TO MAILBOX # *xeeKee 212 
;SET MSGTYP TO FATAL ERROR 

;CPU ERROR REG FAILED TO CLEAR 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 765 

; STACK geo SETUP 

;RETURN LOCA 


TION 
; ILLEGAL ADDRESS INS, SHOULD TRAP 
VE TO MAILBOX # 


‘MOV 0 LBOX teeenke 
7SET MSGTYP TO FATAL ERROR 

; ILLEGAL ADDRESS DID NOT TRAP 
: TO SCOPE REPLACE HALT W/ 240 


213 


aRaaeanee 


eekanee 


-MAIN. 


TS2 


MACRO M1111 
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TEST THAT A TRAP OCCURES ON AN ILLEGAL ADDRESS 


010076 
10102 


at ad ad 
oO 
= 
_ 
&* 


1146 


013767 
67 


012737 
005212 


005037 


177766 
177413 
000100 
000214 


177766 


00034 
000053 


5 
1 


-—o 
Zs 
NO 


2338 


000215 


000304 
000055 


000500 
010250 
167534 


167531 


000304 


167674 


000302 


000304 


167622 
170300 
000302 


000304 


167546 


SEQ 0039 
; AND REPLACE NEXT INST W/ 751 


RETP: 
MOV @#CPUERR,RCPUER ;READ AND SAVE CPU ERROR REGISTER 
BIC #CERMSK,RCPUER ;MASK OFF UNUSED BITS OF CPU ERROR REG 
CMP #100, RCPUER :0DD ADDRESS BIT SET? 
BEQ CERRI 
ERRP1: 
MOV #214 ,QWSFATAL ;MOVE TO MAILBOX # susexse 214 xaanens 
INC (R2) “SET MSGTYP TO FATAL ERROR 
HALT ‘INCORRECT CPU ERROR REG CONTENTS, OR WRONG $TSTNM 
z TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 732 
CERRi: CLR @a#CPUERR =CLEAR ODD ADDRESS BIT 
FRO RARE EEE A EERE EERE EERE EEE RARER REE REE AEEREEREREER ARERR AERA ARERR REA 
“TEST 53 TEST DEC OF STACK POINTER ON A TRAP OPERATION 
LUE EERE EERE REE E ERE E AREER EEE 
15153: INC aASTESTN ;UPDATE TEST NUMBER 
CMP #53 QNSTESTN ; SEQUENCE ERROR? 
BNE Tstd4~1 *BR TO ERROR HALT ON SEQ ERROR 
MOV sp ‘STACK POINTER SETUP 
MOV PRETO RTRAPS ‘RETURN POINTE 
TST 1 SRESERVED INS 
RETQ: CMP SP , ABUF F -4 STEST DECREMENT OF SP 
BEQ TST54 
MOV #215, aHSFATAL ;MOVE TO MAILBOX # xeeexee 275 sannnne 
INC (R2) ‘SET MSGTYP TO FATAL ERROR 
HALT ‘NOT DECREMENTED TWO WORDS,OR WRONG $TSTNM 
* TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 760 
Peek dtd ikki dede tala lehelalehalahshalshalahehalahehalahelahaieieieiaieheiaieieiaheleicieleieieieieieieieieieieiaieieieieiehe 
STEST 54 TEST THAT PROPER P.C. IS SAVED 
LEER EERE EERE EERE ERE REE REAR ERERRERAERE EERE RE REE EERE HERE ER ES 
TST54: INC STESIN :UPDATE TEST NUMBER 
CMP #54,@A$TESIN | :SEQUENCE ERROR? 
BNE 1S755-12 *BR TO ERROR HALT ON SEQ ERROR 
MOV #BUFF SP ‘STACK POINTER SETUP 
MOV WRETR.RTRAPS | :RETURN FROM TRAP POINTER 
TST 1 ‘TRAP ON THIS INSTRUCTION 
RETR: CMP #. ,BUFF-4 ‘CHECK FOR INCREMENTED P.C. 
BEQ TST55 Sa 
MOV #216,a4SFATAL ;:MOVE TO MAILBOX # *eeeeee 216 saennne 
INC (R2) ‘SET MSGTYP TO FATAL ERROR 
HALT T P.C..0R WRONG $TSTNM 


16 sc EC 


TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 757 


PITETTTTEETETTETTE TET TTT bee 


;TEST 55 


TEST THAT ‘OLD’’ CC AND PRI ARE PLACED ON STACK 


[SReereenennenneneneehekeneneneRSAANNSARAAAAAAAEAAAARE RARE EEE EEREEEEEeeEEeneneeees 


TST55: INC QASTESTN ;UPDATE TEST NUMBER 
CMP #55 QvSTESTN : SEQUENCE ERROR? 
BNE TST 56-1 *BR TO ERROR HALT ON SEQ ERROR 
MOV #BUF F 3p *SET UP 
MOV WRETS.RTRAPS |: SET UP 
CLR CC ZCLEAR CC AND PRIORITY — 
TST 1 ; TRAP 


; TEST THAT OLD STATUS WENT TO STACK 


;MOVE TO MAILBOX # *#eeeee 217 
;SET MSGTYP TO FATAL ERROR 

; INCORRECT STATUS 

; TO SCOPE REPLACE HALT W/ 240 
tata NEXT INST W/ 754 


Reeaenee 


‘SET UP 
“SET PRIORITY 
SET CC . 


; TRAP 
; COMPARES STATUS ON STACK 


;MOVE TO MAILBOX # *eaeeee 220 

;SET MSGTYP TO FATAL ERROR 

; INCORRCT STATUS ON STACK,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 730 


RHEKKREHSE 


PETTITT SA CITI I TIT TI TTT TTI TTT ITE TILT TLE LI TTL 


TEST THAT ‘NEW’ STATUS IS CORRECT 


REE RRARREEEREERAKEEEAERA ARERR RERERREEEEERERERE 


& 
.MAIN, MACRO M1111 27=SEP=79 16:56 PAGE 69-3 
155 TEST THAT 'OLD'’ CC AND PRI ARE PLACED ON STACK 
1152 010250 026727 170222 000000 RETS: CMP BUFF =-2,40 
1153 010256 001405 BEQ 1$ 
010260 012737 000217 000362 MOV #217, QA$SFATAL 
010266 005212 INC (R2) 
010270 HALT 
1154 010272 912706 000500 1$ MOV #BUFF , SP 
1155 010276 012767 010320 167500 MOV ARE TT RTRAPS 
1156 610304 912767 000357 167464 MOV #357,CC 
1157 010317 277 SCC 
1158 010314 005747 167461 TST 1 
1159 010320 026727 170152 000357 RETT: CMP BUF F-2,4357 
1160 010326 001405 BEQ TST56 
010230 012737 000220 000302 MOV #220, 0ASFATAL 
010736 005212 TNC ‘R2) 
010340 HALT 
1161 : 
“TEST 56 
010342 005237 000304 TST56: INC aASTESTN 
010346 022737 000056 000304 CMP #56, aASTESTIN 
010354 001121 BNE TS157=12 
1162 010356 012706 000500 MOV #BUFF , SP 
1163 010362 012767 010400 167414 MOV #RETU,RTRAPS 
1164 010370 005067 167412 CLR RTRAP5 +2 
1165 010374 005767 167401 TST 1 
1166 010400 RETU: 
1167 010400 BPL 1$ 
010402 012737 000221 000302 MOV #221, QASFATAL 
010410 005212 INC (R2) 
010412 0 HALT 
1168 010414 1$: 
010414 001005 BNE 2$ 
010416 012737 000222 000302 MOV #222, OASFATAL 
010424 005212 INC (R2) 
010426 000000 HALT 
1169 010430 2%: 
010430 102005 BVC 3$ 
010432 012737 000223 000302 MOV #223, A#SFATAL 
010440 005212 INC (R2) 
010442 HAL] 
1170 010444 38: 
010444 103005 BCC 4$ 
010446 012737 000224 000302 MOV #224, BASF ATAL 
010454 005212 INC (R2) 
010456 HAL T 


UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
;BR TO ERROR HALT ON SEQ ERROR 


;CLEAR FUTURE PRIORITY AND CC 
; TRAP HERE 
;TEST FOR ‘'C’’ CLEARED 


sMOVE TO MAILBOX # *eeeee® 22] 
;SET MSGTYP TO FATAL ERROR 
:C_NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 760 


geeeaneee 


222 


Raeeneee 


sMOVE TO MAILBOX #4 *«texnne 
:SET MSGTYP TO FATAL ERROR 
3;Z NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 752 


223 


sMOVE TO MAILBOX #4 *axeaxne keekeee 
;SET MSGTYP TO FATAL ERROR 

;V_NOT CLEARED 

: TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 744 


eeenene 


MOVE TO MAILBOX # *xeeeee = 204 
;SET MSGTYP TO FATAL ERROR 
;C_NOT CLEARED 

; TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 736 







































010540 


1179 010542 


010554 


1180 aber; 


010570 


1181 ap ede | 


1185 


-MAIN. MACRO M1111 
TS6 TEST THAT 





032767 
5 


102405 
012737 
005212 
000000 


103405 
012737 


005212 . 
000000 


016700 





27-SEP-79 
"NEW'’ STATUS 


000357 
000225 


167253 


000226 


000227 


000230 


000231 


167164 
000357 


000232 


000304 
000057 
177766 


000750 
010700 








167310 
000302 


167270 
167264 


000302 


000302 


000302 


000302 


000302 


000304 


167120 










is’ J PAGE 69-4 
ORRE CT 





4$: 


5$: MOV ° 


2$: 


3$: 


4$: MOV 


sTEST $7 
TST57: INC 












$257 .0¢ 
#225, @ASFATAL 
(R2) 


BUFF ,SP 
MRETV,RTRAPS 


#357 ,RTRAPS+2 


1$ 

#226, DASFATAL 
(R2) 

2$ 

#227 ,QASFATAL 
(R2) 

3$ 

#230, 04$F ATAL 
(R2) 


4$ 
#231, @A$FATAL 
(R2) 

ST5 
1332 aaSFATAL 
(R2) 


@ASTESTN 
#57 ,AASTESTN 
ERR 





; TEST PRIORITY FOR ZERO 


sMOVE TO MAILBOX # *eeeeee 225) aenneee 


;SET MSGTYP TO FATAL ERROR 
:PRIORITY NOT ZERO 
TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 725 


SET NEW ‘'CC’’ AND PRIORITY 
3 TRACE HERE 


;MOVE TO MAILBOX # seeeess 226 teanene 
;SET MSGTYP TO FATAL ERROR 

:N NOT SET 

TO SCOPE REPLACE HALT W/ 240 

AND REPLACE NEXT INST W/ 705 


sMOVE TO MAILBOX # *x%keKRe 227 xennene 
SET MSGTYP TO FATAL ERROR 

3Z NOT SET 

: TO SCOPE REPLACE HALi W/ 240 

; AND REPLACE NEXT INST W/ 677 


. 
e 


; AND REPLACE NEXT INST W/ 671 


sMOVE TO MAILBOX # *kaxwee 230 taeneee 
;SET MSGTYP TO FATAL ERROR 
;V_NOT SET 

TO SCOPE REPLACE HALT W/ 240 


:MOVE TO MAILBOX # *xeeexx 23] teeeeee 
SSET MSGTYP TO FATAL ERROR 
=C NOT SET 


. 
e 


TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 663 


MOVE TO MAILBOX # *kexxee 230 Rae eee 

;SET MSGTYP TO FATAL ERROR 

sPRIORITY WAS CHANGED,OR WRONG $TSTNM 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 651 

UII III IOIISIOIOIIIOIOIIOIOIOIOIOIOISIOIOIOIOI III TOI TOTO TOI TT OR TOT TT ORATASA SA SASAAETSI OSA AATSOSCAAACSCTCACTACIOIOII Oot 
TEST THAT DEC R6 TO A VALUE LESS 400 TRAPS 


MARSA ALAALASZLALAL SASS SRSSSSESSESASRS SESE RRR RE SA SARS RRR RRR RRR RRR RR RR RRR RRR RRR RRS SSE SD OB | 


;UPDATE TEST NUMBER 


; SEQUENCE ERROR? 
:BR TO ERROR HALT ON SEQ ERROR 
R= 150. ERROR REGISTER 


STACK OVERFLOW TRAP POINTER 
WITH R6 = 150 SHOULD TRAP 
















000233 


177766 
177413 
060004 
000234 


177766 


000304 
000060 


000150 
010772 
000142 
000235 


27-SEP-79 16:56 PAGE 69-5 
TEST THAT DEC R6 TO A VALUE LESS 400 TRAPS 


000302 


167574 
167566 
167560 


000302 


000304 


167014 


000302 






MOV #233, Q4SF ATAL ;MOVE TO MAILBOX # xen 233 teaenne 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HAL T ; SHOULD HAVE TRAPPED,OR WRONG $TSTNM 
: TO SCOPE REPLACE HALT Ww/ 240 
eect ; AND REPLACE NEXT INST W/ 762 
MOV @ACPUERR,RCPUER ;SAVE CPU ERROR REGISTER 
BIC ACERMSK,RCPUER ‘MASK OFF UNUSED CPU oo REG BITS 
CMP #4, RCPUER ;1S YELLOW ZONE BIT. SET 
BEQ CERR2 
ERRP2: 
MOV #234, QASFATAL sMOVE TO MAILBOX # seen 234 eennnee 
INC (R2) ;SET MSGTYP TO FATAL ERROR 
HALT ; INCORRECT CPU ERROR REGISTER CONTENTS, OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 743 
CERR2: CLR @ACPUERR ;CLEAR YELLOW ZONE BIT 
UO OUISUISIOIEIIIEIUISISIOIUISIOIUIOIDISIOIIUIOIOIDIOOIUIOIUIOIOIDIIDIDIOIIOIDOIOIDIDIDIDDIDIOIDIDIDIIDIDIDIUISIDIMITININIDININOE I ttt 
: TEST 60 TEST FOR DEC OF R6 ON GVERFLOW TRAP 
DUE IIISIISIIIOISISIOIOISIOISIISIOUIOIIIDIOUIOIOIUOISIOISIOOIDIOIOIUIDIOIDIDIDIDIIDIIIDOIDIUDIDIIDOIDIDISOISIDISIIOIDIEIDDINE INGE nt 
TST60: INC a*$TESTN ; UPDATE TEST NUMBER 
CMP #60 ,@ASTESTN mts th ERROR 
BNE TST61-12 TO ERROR oat ON SEQ ERROR 
MOV #150,%6 Re = 150 
MOV MTDEC2.4 TRAP POINTER 
TST -(6) ;WITH R6 = 150 SHOULD TRAP 
TDEC2: CMP 46,4142 ;DID R6 DECREMENT 
BEQ TST61 
MOV #235, QASFATAL sMOVE TO MAILBOX # xeeeeee 235) tannene 
INC (R2) ;SET MSGTYP TO FATAL ERROR 


HAL T ;R6 NOT = 142,0R WRONG $TSTNM 
: ; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 





SEQ 0042 
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T60 


1206 
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Whore, 
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RARER 





elelelelelelelelelelele) 
ah cold aa ct aed ced cd ae el ced ld 
eal aay al alt call eal cael cal cl cal eal call 
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-~ | 3 OO 
RRERAN 


WWN 


Qooo000o 
Bich ach ati th ant aa 
ily acl call ctl cal cals 
a aad el al ol a lh 
ae 

SMOFKNMSEO 


NM 
Oo 
ar 
_" 


4 
' 


ws > 
mo o 
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— es od od oe od oo 3) 2 
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cS 
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— 
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at 
on 
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MACRO M1111 


012737 
005212 
000000 


012737 
005212 
000000 


012767 


000304 
000061 


000150 
167110 
011046 
167074 


000236 


011120 
000237 


000400 
011146 


000240 


000012 


000304 


166740 


000302 


166700 
000302 


166652 


000302 


000304 


166614 
166602 


000302 


166564 


27=SEP=79 16:56 PAGE 70 
TEST FOR DEC OF R6& ON OVERFLOW TRAP 


SRSBRARASARBRAALASBSRAASRASARARRRARRASRRRRRRRRRA RAR ARR RSA R RRR RARER RRR RR RRR RRR RRR RRR RAR RRR DSSS S| 


TEST DIFFERENT TYPES OF OVERFLOW 


REE EET REE EEE EERE EERE ARERR RARER EREREEREREER REE eRe hee 


STEST 61 
TST61: 


TDEC3: 


The 


TDEC4: 


TDEC6: 


TDEC7: 


@ASTESTN 
#61,0A4$TESTN 
TST62-12 
#150,%6 

146 

MTDEC3,4 
-(6) 

146 

1$ 

#236, QASFATAL 
(R2) 


#1000,%5 
%6 


#237, O4SFATAL 


#400 ,%6 
MTDEC7,4 
-(5),-(6) 


#240, Q4$F ATAL 
(R2) 


sMOVE TO MAILBOX # 


: AND REPLACE NEXT 


;MOVE TO MAILBOX # 


sMOVE TO MAILBOX # 


;SET MSGTYP TO FATAL ERROR 
3NO STACK OVERFLOW,OR WRONG $STSTNM 


UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
BR TO ERROR HALT ON SEQ ERROR 


STATUS WORD OF LOC 10 
RETURN TO LOC 4 


katekee 236 

;SET MSGTYP TO FATAL ERROR 

; INCREMENT OPERATION NOT INHIBITED 
TO SCOPE REPLACE HALT W/ 240 
INST W/ 757 


aeeeeeee 


keakken 237 
;SET MSGTYP TO FATAL ERROR 
STACK = 400 AND cn tar Se P ess TRAP 


Ree 


> TO SCOPE REPLACE HALT W/ 
; AND REPLACE NEXT INST W/ 742 


RREKKKK eekeeeet 


240 


TO SCOPE REPLACE HALT W/ 240 


* AND REPLACE NEXT INST W/ 727 


PERAK AREER EEERERKEERERKERKRRERARRKERRARRARERARARARAAAERARAEAAARAARAEREREREAE HERA E ASS 


s TEST 62 


TSTé2: 


VDEC2: 


VDEC1: 


MOY 


TEST THAT AN 10 CAUSES AN OVERFLOW TRAP 


SAAR REAR REE REAR REE AEEEEREEEEA AREER A REE E REREAD 


Q4STESTN 
ae 


VDEC 
#400, %6 
AVDEC2,10 
AVDEC1,4 


4241, QASFATAL 
(R2) 


#10+2,10 


:MOVE TO MAILBOX # 


; UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
;BR TO ERROR HALT ON ae ERROR 
;SET UP STACK TO OVERFLOW 

;SET UP 10 VECTOR 

[SET UP OVERFLOW VECTOR 

THIS TRAP SHOULD CAUSE OVERFLOW 


keeekee O47 

SET MSGTYP TO FATAL ERROR 

; TRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 
TO SCOPE REPLACE HALT W/ 240 


eeakenee 


; AND REPLACE NEXT INST W/ 761 


FEAR RA AAR ARAERAEAAERERREA AERA ERAREREEAERERAEAREAHRETRAEAEARKENTEHRAREKRARARAAEA Eee Ree ee eS 


iTEST 63 


TEST THAT AN IOT CAUSES AN OVERFLOW TRAP 


SERA RAARARAEEAREREAERARKRERAARREAAAARAAAEAAAAAARRAAEARARAARARARARHKERRASeeeKRkeRekneeRneesene 


SEQ 0043 


-MAIN, MACRO M1111 27-SEP-79 16:56 PAGE 70-1 
TEST THAT AN IOT CAUSES AN OVERFLOW TRAP SEQ 0044 
011224 005237 000304 TST63: INC OASTESTN ; UPDATE TEST NUMBER 
011230 022737 000063 000304 CMP #63,QA$TESTN ; SEQUENCE ERROR? 
011236 001011 BNE VDEC4 :BR TO ERROR HALT ON SEQ ERROR 
011240 012706 000400 MOV #400 ,%6 SET UP STACK TO OVERFLOW 
911244 012767 071262 166546 MOV AVDECS, 20 :SET UP IOT VECTOR 
011252 012767 011274 166524 MOV MVDEC3,4 ;SET UP OVERFLOW VECTOR 
Bias 000004 sere 10T ; THIS TRAP SHOULD CAUSE OVERFLOW 
V $ 
011262 012737 000242 000502 MOV #242,QA$FATAL ;MOVE TO MAILBOX # steeeee 2420 naannne 
011270 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
011272 000000 HALT ; TRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
¥ ; AND REPLACE NEXT INST W/ 761 
011274 012767 000022 166516 VDEC3: MOV #20+2,20 
1235 FRARARAAAAAERAREREREAREAARERREEEARAERRERERERERRARARAREERARRRRARRARARREKARERERARRARERRRERARERE 
; TEST 64 TEST THAT AN EMT “AUSES AN OVERFLOW TRAP 
FRA AAAAKEREEREREARERERERERERAERERERRERKARARREKRKEKREERAREEREAERERAEAERHEREEAERAERE HERR ERES 
011302 005237 000304 TST64: INC @ASTESTN ; UPDATE TEST NUMBER 
011306 022737 000064 000304 CMP met @ASTESTN ; SEQUENCE ERROR? 
011314 001011 BNE DEC6 ‘BR TO ERROR HALT ON SEQ ERROR 
011316 012706 000400 MOV #400. %6 ;SET UP STACK TO OVERFLOW 
011322 012767 011340 166500 MOV #VDEC6, 30 :SET UP EMT VECTOR 
011330 012767 011352 166446 MOV #VDECS,4 ;SET UP OVERFLOW VECTOR 
mige 104000 sere EMT ; THIS TRAP SHOULD CAUSE OVERFLOW 
V : 
011340 012737 000243 000302 MOV #243,QA$FATAL ;MOVE TO MAILBOX # xeeeeee 243 teeenee 
011346 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
011350 000000 HALT ; TRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 
011352 012767 000032 166450 VDEC5: MOV #30+2,30 
1236 SAAR AARA RRA ERRAEARERRRAKEKARAARAAEKKARRORREARARRERRERRRAKERERR HERRERA HEHE 
3 TEST 65 TEST THAT AN TRAP CAUSES AN OVERFLOW TRAP 
LEAR ARERR ERE EEE REE REE REEEE RE EEEEAEREAERERRERERAEEREREREEAEEKEREKE RRR ERE ERR eee ee 
011360 005237 000304 TST65: INC @ASTESTN ;UPDATE TEST NUMBER 
011364 022737 000065 000304 CMP #65 ,Q@ASTESTN ; SEQUENCE ERROR? 
011372 001011 BNE VDEC8 :BR TO ERROR HALT ON SEQ ERROR 
011374 012706 000400 MOV #400,%6 ;SET UP STACK TO OVERFLOW 
011400 012767 011416 166426 MOV AVDEC8, 34 ;SET UP TRAP VECTOR 
011406 012767 011430 166370 MOV AVDEC7,4 ;SET UP OVERFLOW VECTOR 
Biiaia 104400 wees TRAP ;THIS TRAP SHOULD CAUSE OVERFLOW 
Vv 3 
011416 012737 000244 000302 MOV 4244, QASFATAL sMOVE TO MAILBOX # *xeeenee 244 teennee 
011424 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
017426 000000 HALT ; TRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 
011430 012767 000036 166376 VDEC7: MOV #34+2,34 
1237 SRT TR RRR ERE RERR ERE REE REAR AREER ERE ETRE Tee eee 
;TEST 66 TEST THAT AN TRT CAUSES AN OVERFLOW TRAP 
SERA RAAREAAARAAAAERAAEKAEAAEAERAAAAARRAERRAAAERAARAAERAERERAKAKAKAERRARRKAKRARHARe KARE eseene 
011436 005237 000304 TST66: INC @A$STESTN ;UPDATE TEST NUMBER 
011442 022737 000066 000304 CMP #66 ,QASTESTN SEQUENCE ERROR? 
011450 001011 BNE VDEC10 [BR TO ERROR HALT ON SEQ ERROR 
011452 012706 000400 MOV #400 ,%6 i SET UP STACK TO OVERFLOW 
011456 012767 011474 164330 MOV #VDEC10,14 +: f UP TRT VECTOR 
011464 012767 011506 166212 MOV MVDEC9.4 SET UP OVERFLOW VECTOR 





on MACRO M1111 27=SEP=79 16:56 PAGE 70-2 


TEST THAT AN TRT CAUSES AN OVERFLOW TRAP SEQ 0045 
011472 000003 TRT ; THIS TRAP SHOULD CAUSE OVERFLOW 

011474 vDEC10: 

011474 012737 000245 000302 MOV #245 ,QM$FATAL ;MOVE TO MAILBOX # teeewee 245 seeenee 

011502 005212 INC (R2) 7 SET MSGTYP TO FATAL ERROR 

011594 000000 HALT TRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 
011506 012767 000016 166300 VDEC9: MOV #14+2,14 


1238 PRE ERRRREREEEREREREREREERRRERERERE REE ERR EERE EERE ERE EERE RENEE EERE 
TEST 67 TEST THAT AN ILLA CAUSES AN OVERFLOW TRAP 
ee rsp neyo ee. greyntnat sf mere canines ie SA 
011514 005237 000304 TST67: INC @FSTESTN ; UPDATE TEST NUMBER 
011520 022737 000067 000304 CMP #67 TMPSTESTN ; SEQUENCE ERROR? 
011526 001011 BNE VDEC11 ;BR TO ERROR HALT ON SEQ ERROR 
011530 012706 000400 MOV #400 ,%6 ;SET UP STACK TO OVERFLOW 
011534 012767 011552 166246 MOV #VDEC11,10 ;SET UF ILLA VECTOR 
011542 012767 011564 166234 MOV AVDEC12,4 ;SET UP OVERFLOW VECTOR 
ai leas 004700 wert ILLA ;THIS TRAP SHOULD CAUSE OVERFLOW 
011552 012737 000246 000302 MOV #246, QASFATAL sMOVE TO MAILBOX # teeeeee 246 teeneee 
011560 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
011562 000000 HALT ; TRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 761 


011564 012767 000012 166216 VDEC12: MOV #10+2,10 
1239 011572 020627 000370 CMP 6, -4370 :STACK PUSHED FOUR WORDS? 
1240 011576 001405 BEQ T70 
011600 012737 000247 000302 MOV $e? QASFATAL :MOVE TO MAILBOX # *eeeeee 247 senenes 
011606 005212 INC (R2) :SET MSGTYP TO FATAL ERROR 
011610 000000 HALT ;CORRECT # (4) OF WORDS WERE NOT PUSHED ONTO STACK 
* TO SCOPE REPLACE HALT W/ 240 
+ AND REPLACE NEXT INST W/ 746 
1241 DR RRR ERE ERR ERR ERE ERE EERE EERE ERE E REET ER EERE REE REE REE E 
“TEST 70 TEST THAT AN ILLB CAUSES AN OVERFLOW TRAP 
PERERA ERA A RARER EERE REE EEERER ERE ERR RERERAAEAEREREKE EAE RRA H HARES 
011612 005237 000304 TST70: INC a#$TESTN ;UPDATE TEST NUMBER 
011616 022737 000070 000304 CMP #70,a4STESTIN  : SEQUENCE ERROR? 
011624 001011 BNE VDEC13 [BR TO ERROR HALT ON SEQ ERROR 
011626 012706 000400 MOV #400, %6 SET up STACK TO OVERFLOW 
011632 012767 011650 166150 MOV #VDEC13, 10 ‘SET UP ILLB VECTOR 
011640 012767 011662 166136 MOV #VDEC14.4 ‘SET UP OVERFLOW VECTOR 
011646 000100 ILLB STHIS TRAP SHOULD CAUSE OVERFLOW 
011650 VDEC13: 
011650 012737 000250 000302 MOV #250, a4SFATAL ;MOVE TO MAILBOX # *eeenex 250 seevene 
011656 005212 INC (R2) :SET MSGTYP TO FATAL ERROR 
071660 000000 HALT STRAP FLAG OVERFLOW DID NOT OCCUR,OR WRONG $TSTNM 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 761 
011662 012767 000012 166120 VDEC14: MOV #10+2,10 


1242 
1243 PR REE ER RRR R RE RRA REAR ERR EEAEA EERE ERAN E RARE EERE Ee 
TEST 71 TEST FOR FALSE OVERFLOW TRAP 
eR REE AREER EERE EERE ER ERATE REE ERRR REESE EERE RRR REE E REE E REED 
011670 005237 000204 TST71: INC @ASTESTN ;UPDATE TEST NUMBER 
011674 022737 000071 000304 CMP #7) ,QAZTESTN Fo te aes ERROR? 
011702 001023 BNE FOVER BR T O ERROR HALT ON SEQ ERROR 


1244 


-MAIN 
171 


wall 
™m 
> 
Vw 
oO 
=i 
ad 


EYRRSSM 


a ae ol al a ce a eae a a eel ee el al eld 
NNMNOANO 


oo 
RS 


012050 


1267 012052 


RNENSRS 


MACRO M1111 


012767 


012737 
005212 
000000 


012767 
005067 


011752 166072 
001002 
002002 
004002 
010002 
020000 


000251 000302 


166012 


000304 
000072 


000500 
012052 


000020 
012036 


000304 


165770 


000252 000302 


000304 


000073 000304 


000500 
pense 165714 


00002 
012112 


000253 000302 


27=SEP=79 16:56 PAGE 70-3 
TEST FOR FALSE OVERFLOW TRAP 


FOVER: 


STP: 


MOV 
CLR 


#FOVER,4 
#1002 ,%6 


-(6) 
eee Re 
#64002,%6 
-(6) 
#10002,%6 
-(6) 
#20000, %6 
-(6) 

STP 

#251, QASFATAL 
(R2) 


6,4 
6 


SEQ 0046 
;SET UP OVERFLOW POINTER 
; SHOULD NOT OVERFLOW 
; SHOULD NOT OVERFLOW 
; SHOULD NOT OVERFLOW 


; SHOULD NOT OVERFLOW 


eee ere 


;MOVE TO MAILBOX # *eeeee% 25) 
;SET MSGTYP TO FATAL ERROR 

;1T OVERFLOWED,OR WRONG $STSTNM 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 747 


MARS ALAASAASAASASAALASARARR RR RARER RRA RR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RR RR RRR RRR RRR SD ED! 


“TEST 72 


TST72: 


RETAT: 


TEST THAT BIT 4 PSW WILi CAUSE A TRAP TO 14 


MAAS EAAAARERRRRRRRRRARARARSARRRRRRRR RASA RARR RRR RRR RA RRR RRR RRR RRR RRR RRR RRR RRR RRR DS SDD! 


a*$TESTN 

#72, QASTESTIN 
TST?3-12 
#BUFF , SP 

#RE TAT ,RTRAPS 
#20,-(SP) 
#.+6,-(SP) 


#252, QASFATAL 
(R2) 


; UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
;BR TO ERROR HALT ON SEQ ERROR 


;SET UP TO TRAP TO 14 
;PUSH T BIT 
;PUS 


Raeeenee 


sMOVE TO MAILBOX # *x*eee8® 252 

;SET MSGTYP TO FATAL ERROR 

; TRACE BIT DID NOT TRAP! ,OR WRONG $TESTN 
; TC SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 757 


MADARA LASALA 2222 SRR REESE RSRSRRRRRRRRR SRR SRR RR RAR RRA RR RRR RR RRR RRR RRR RRR RRR RR RRR RRR SESE S| 


“TEST 73 


MARSA ARAASRALASRASLASSERA ARRAS ERAR RRR SARA RRR RRR RE RRR RR RRR RRR RR RRR RRR RRR RRR RRR RRR RR REE S| 


TST73: 


RETAT: 


INC 


TEST 
aASTESTN 

#73, QASTESTIN 
TST?4-12 
#BUFF . SP 
#RETBT ,RTRAPS 
#20,-(SP) 
#.+6,-(SP) 


#253, QASFATAL 
(R2) 


SP , ABUF F =4 
TST74 


STACK POINTER DECREMENTS 


;UPDATE TEST NUMBER 
; SEQUENCE ERROR? 
;BR TO ERROR HALT ON SEQ ERROR 


;PUSH T BIT 


kaeaeane 


253 


eteeenne 


“MOVE TO MAILBOX # 


;SET MSGTYP TO FATAL ERROR 
TRACE BIT DID NOT TRAP! 


; TO SCOPE REPLACE HALT W/ 360 


; AND REPLACE NEXT INST W/ 








1278 


2737 
5212 


012206 022767 
012214 001405 
012216 012737 
012224 005212 

000000 


000254 


000304 
000076 


177777 


000302 


000304 


165620 


166260 
000302 


000304 


165524 


000302 


000304 


111 27=SEP=79 16:56 PAGE 70-4 
TACK POINTER DECREMENTS 
01 


SEQ 0047 


MOV #256 , QASFATAL sMOVE TO MAILBOX # s#eeene 254 seeneen 

INC (R2) ;SET MSGTYP TO FATAL ERROR 

HALT ey POINTER WAS NOT PUSHED BY TRAP,OR WRONG STESTN 
> TO SCOPE REPLACE HALT W/ 249 
: AND REPLACE NEXT INST W/ 747 


SRERERAEE RAE ARERR ERAARAAAAERAEAAERREREHAREKEAAEEEEHHKRERKE ARATE haee 


“TEST 74 TEST FOR PROPER PC ON STACK 
J RARAAAERARAAAARARARARRARAEARRAERRAAEAERARAAERRAAAARERHERAEAHEAEHARAEHARARHEAHERHEHERHAAES 
TST74: INC BASTESTN [UPDATE TEST NUMBER 

CMP #74 O*STESTN s SEQUENCE ERROR? 

BNE IST? 5-1 [BR TO ERROR HALT ON SEQ ERROR 

MOV s 

MOV oRTCT RTRAPS 

MOV #20,-(SP) :PUSH T BIT 

MOV #.+6,-(SP) “PUSH PC 

RT] SSET T BIT 

‘TRAP HERE 

RETCT: CMP #. ,BUFF-4 

BEQ 1ST75 

MOV #255, GASFATAL :MOVE TO MAILBOX # xeeeene 255 senneee 

INC (R2) ‘SET MSGTYP TO FATAL ERROR 

HALT > CORRECT PC WAS NOT SAVED ON STACK,OR WRONG $TESTN 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 754 


tee eee eee eee PPO PRP RRR RRR RRR RRR RRR RRR RR RRR RR ERR RRR RRR RRR ER ER ERR RE ERR EE SE 


“TEST 75 TEST THAT RTT POPS T- BIT 
FERRER ARERR REE AREEEAERAREEERRREKRERERARERAEAEERAAEREREEERREKE ERR AREE ERE 
TST75: INC ae$TESTN :UPDATE TEST NUMBER 
CMP #75, aM$TESIN  :SEQUENCE ERROR? 
BNE TST?6-12 “BR TO ERROR HALT ON SEQ ERROR 
MOV #BUFF , SP 
CLR R1 SCLEAR R1 
MOV #20,-(SP) 
MOV #RTT1,-(SP) 
MOV ARTT2.14 
RTT 
RTT1: NOP 
BEQ TST76 
MOV #256, QASFATAL :MOVE TO MAILBOX # skeenen 256 sennnee 
INC (R2) SEI MSGTYP TO FATAL ERROR 
HALT “BIT DID NOT TRAP.OR WRONG $TESTN 


: "6 SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 755 


RTT2: 
FREER REAR EERE REE ER AEA RARERAR AAA ERAAEAEARAKERERAEAR EERE HERRERA eee 
“TEST 76 TEST THAT RTT ALLOWS ONE INST. BEFORE TRAP 
cant her eeneten” amma weer eae PCa |. , ete  e 
TST76: INC a4#$TESIN :UPDATE TEST NUMBER 

CMP a76 aw STESTN S SEQUENCE ERROR 

BNE ST?77=1 ‘BR TO ERROR he ON SEQ ERROR 


MOV hrrerre a5 
RTT5: MOV #BUFF , SP 
MOV #20,-(5P) 





Sa OSSURS 


ab at ood 
mw-O 


MACRO M1111 27=SEP=79 16:56 PAGE 70-5 
TEST THAT RTT ALLOWS ONE INST. BEFORE TRAP 
012340 012746 012356 MOV #RTT3,-(SP) 
012344 012767 012376 165442 MOV WRITS.16 
012352 005001 CLR R1 ZCLEAR RO 
012354 RTT “SET T-BIT 
012356 005201 RTT3: — INC R} 
012360 005205 INC %5 
012362 001762 BEQ RTTS :DO THIS TEST NO MORE THAN 2 TIMES 
012364 012737 000257 000302 MOV #257, a@4$FATAL :MOVE TO MAILBO ateeeee 257 seeenes 
012372 005212 INC (R2) :SET MSGTYP TO FATAL ERROR 
012374 HALT “DID NOT TRAP 
* TO SCOPE REPLACE HALT W/ 240 
: AND REPLACE NEXT INST W/ 752 
012376 005301 RITG4: DEC R1 SEE IF RTT ALLOWS 1 INST. 
012400 001407 BEQ RTT6 
012402 005205 INC %5 :D0 THIS TEST NO MORE THAN TwO TIMES 
012404 001751 BEQ RTTS 
012406 012737 000260 000302 MOV #260,@4SFATAL  :MOVE TO MAILBOX # *eeeee 260 seneeee 
012414 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
012416 HALT ‘RTT DID NOT ALLOW 1 INST.,OR WRONG $TESTN 
> TO SCOPE REPLACE HALT W/ 240 
: AND REPLACE NEXT INST W/ 741 
012420 RTT6: 
FARA ERRARAEREAEREREREARERARRERRERRAAEAAE REAR AERAERARARRAAEATRARARARAARARREARH ERATE ARES 
“TEST 77 TEST THAT RTI DOES NOT ALLOW 1 INST. 
FEA AARERAEARERERAERAEAERAREERERERERERERRERAARAAEAEREHAERERARAAAARAARAEEAAREKARAHEREE RAH R REED 
012420 005237 000304 1ST77: INC a#STESTN :UPDATE TEST NUMBER 
012424 022737 077 000304 (MP #77, Q@ASTESIN = SEQUENCE ERROR? 
012432 001023 BNE TST100-12 ‘BR TO ERROR HALT ON SEQ ERROR 
012434 012706 000500 MOV #BUFF , SP 
012440 012746 000020 MOV #20,-(SP) 
012444 012746 012462 MOV #RTI1,-(SP) 
012450 012767 012476 165336 MOV #RT12.14 
012456 005001 CLR RI 
2460 002 RTI :SET T-BIT 
012462 005201 RTI1: INC RI ‘RTI SHOULD NOT ALLOW THIS 
012464 012737 000261 000302 MOV #261, @4S$FATAL :MOVE TO MAILBOX # *eaeene 26] seneens 
012472 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
012474 000000 HALT ‘T= BIT DID NOT CAUSE TRAP 
* TO SCOPE REPLACE HALT W/ 240 
+ AND REPLACE NEXT INST W/ 756 
012476 005701 RTI12: TST R1 
:RTI SHOULD NOT ALLOW 1 INST. BEFORE TRAP 
012500 001405 BEQ TST100 
12502 012737 000262 000302 MOV #262,Q4S$FATAL ;MOVE TO MAILBOX # *eeeeee 262 seeenne 
012510 005212 INC (R2) ‘SET MSGTYP TO FATAL ERROR 
012512 000000 HALT “RTI DID ALLOW 1 INST. BEFORE TRAP,OR WRONG $TESTN 
* TO SCOPE REPLACE HALT W/ 240 
> AND REPLACE NEXT INST W/ 747 
LEAR EAE A RAE RERERAAREAEAARAAEAAERAEAEAAEEERARAERR ERRATA EES 
“TEST 100 DOES THE PROCESSOR TRAP WHEN %7 IS ODD? 
JURE REE AERA AERA ERA EAA ARERR AARAEKAEAARARKEHRRRE RA ERA HER REKE eRe RAED 
012514 005237 000304 TST100: INC STESTIN :UPDATE TEST NUMBER 
012520 022737 000100 000304 CMP #100, a#$TESTIN :SEQUENCE ERROR? 
012526 001120 BNE 1101-12 ‘BR TO ERROR HALT ON SEQ ERROR 
012530 012706 000500 MOV #BUFF , x6 ‘SET UP STACK POINTER 
012534 012767 012560 165242 MOV #R7TRI.G ‘RETURN FROM TRAP 


be 


SEQ 0048 


-MAIN. 
T7100 


1334 012542 


012626 


3 012630 


0 

012650 
1345 012652 
1346 012656 
1347 
1348 

012676 
1349 012700 
1350 012706 
012710 


012716 
012720 


52 012722 


012750 


1357 012752 


MACRO M1111 


012707 
012737 
005212 
000000 


022767 


012737 
005212 
000000 


022767 


012737 
005212 
000000 


012767 


000001 
000263 


000001 
000264 


000500 
012630 


000265 


012617 
000266 


000500 
012700 


000267 


012665 
000270 


000500 
012752 


000271 


000302 


165706 
000302 


165170 


000302 


165636 
000302 


165120 
000302 


165566 
090302 


165050 


000302 


165024 


27-SEP-79 16:56 PAGE 70-6 
DOES THE PROCESSOR TRAP WHEN %7 IS ODD? 


R7TR1: 


R7TRe: 


R7TR3: 


TR4A: 


R7TR4: 


#1,%7 
#263, QA$SFATAL 
(R2) 


oo 
#264, QASFATAL 
(R2) 


BUFF ,%6 
AMR7TR2,4 
x7 


#265, @A$FATAL 
(R2) 


os 


#266, QASFATAL 
(R2) 


#BUFF , %6 
#R7 TRS. 4 


#267, QA$FATAL 
(R2) 


+ entireties 
#270, @A$SFATAL 
(R2) 


MBUFF ,2%6 
AR7TRS,4 


%7 
#271, GASFATAL 
(R2) 


#6,4 


PC EQUALS ONE 

;MOVE TO MAILBOX # *#aaeee 26% 
;SET MSGTYP TO FATAL ERROR 

[ODD ADDRESS SHOULD HAVE TRAPPED 
; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 763 


sMOVE TO MAILBOX # «exeawe 
;SET MSGTYP TO FATAL ERROR 


264 


>CORRECT PC WAS NOT SAVED ON STACK 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 752 


STACK POINTER 
:PC BECOMES ODD 


sMOVE TO MAILBOX # *xeKKenn 
;SET MSGTYP TO FATAL ERROR 


: TO SCOPE REPLACE HALT W/ 240 
‘ AND REPLACE NEXT INST W/ 737 


265 


sMOVE TO MAILBOX # **eaxne 
;SET MSGTYP TO FATAL ERROR 
;CORRECT PC NOT ON STACK 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 726 


266 


:MAKE PC ODD 

sMOVE TO MAILBOX # **aKee® 
;SET MSGTYP TO FATAL ERROR 
* SHOULD TRAP 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 713 
+ CHECK VALUE OF PC ON STACK 


:MOVE TO MAILBOX # *xxannn 
:SET MSGTYP TO FATAL ERROR 
;WRONG VALUE ON STACK 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 702 


267 


270 


CARRY EQUALS A 1 
:PC BECOMES ODD 


sMOVE TO MAILBOX # sxeuene 
;SET MSGTYP TO FATAL ERROR 
;ODD ADDRESS DIDN'T TRAP 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 666 
[RESET UP A HALT FOR TRAP 


271 





aaeeaenee 


wanranae 


eeennee 


waaenene 


weetenee 


eeeeene 


eeereene 





SEQ 0050 


#<2*TRGA+1>,BUFFH4 ; CHECK FOR VALUE ON STACK 


TST101 
#272, QASFATAL 
(R2) 


TEST 


eneanrenw 


;MOVE TO MAJLBOX # s#eeeee = 272 

;SET MSGTYP TO FATAL ERROR 

;WRONG VALUE ON STACK,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 652 


MARR RBRRARASRRSRSLARRRASASASASR ERASERS ESE SRR SSSA S ARR RRR RRA SARA RAS RRR RRR RRR RRR RRR RRR ASS D SD 


THAT TRACE BIT TRAPS 


INHIB ON TRAP INST 


MARBBARASRRASAARARAASRASLALSSAARSASSA SARA RE LARS S RA SARS RRR RR RRR RR RR RRR RRR RRR RAR RR RRR RR RASS EE 


MAIN. MACRO M1111 27=SEP=79 16:56 PAGE 70-7 
100 DOES THE PROCESSOR TRAP WHEN %7 IS ODD? 
1358 012760 022767 025701 165506 CMP 
1359 0127 001405 BEQ 
012770 012737 000272 000302 MOV 
012776 005212 INC 
013000 HALT 
1360 ; 
sTEST 101 
013002 005237 000304 TST101: INC 
013006 022737 000101 000304 CMP 
1361 013014 001027 BNE 
1362 013016 012706 000500 MOV 
1363 013022 012767 013062 164764 MOV 
1364 013030 005027 000016 CLR 
1365 013034 005027 000022 CLR 
1366 013040 012767 013196 164752 MOV 
1367 013046 012746 000020 MOV 
1368 013052 012746 013060 MOV 
1369 013056 RTT 
1370 4 000004 IOT 
1371 TRACE: 
1 3062 012737 000273 00302 MOV 
013070 005212 INC 
013072 000000 HALT 
1372 013074 BR70: 
013074 012737 000274 000302 MOV 
013102 005272 INC 
013104 000000 HALT 
1373 013106 012767 000016 164700 TONT1: MOV 
f 2 013114 012767 000022 164676 MOV 
: TEST 102 
013122 005237 000304 TST102: INC 
013126 022737 000102 000304 CMP 
013134 001020 BNE 
1376 013136 012706 5 MOV 
1377 013142 012767 013166 164644 MOV 
1378 013150 5067 164642 CLR 
1379 013154 012746 20 MOV 
1380 013160 012746 013166 MOV 
1381 013164 RTI 
1382 013166 036727 165304 000020 TRC1: BIT 
1383 013174 001005 BNE 
013176 STP3: 
013176 012737 000275 000302 MOV 
013204 005212 INC 
013206 000000 HALT 


@ASTESTN 
#101 ,Q4$TESTIN 
BR70 


MBUFF ,%6 
AMTRACE ,14 
#16 


#22 
#TONT1,20 
#20,-(SP) 
#.+6,-(SP) 


#273, @QA$F ATAL 
(R2) 


#274 , QM$SFATAL 
(R2) 


#16,14 
#22,20 


;UPDATE TEST NUMBER 
Fey) ERROR? 
;BR TO ERROR HALT ON SEQ ERROR 


TRACE TRAP 


sI0T TRAP 
PUSH T BIT 
ZPUSH PC 


; TRAP, NEW CC HAVE TRACE RESET 


s;MOVE TO MAILBOX # *eaeeee 273 
;SET MSGTYP TO FATAL ERROR 

; TRACE TRAP WAS NOT INHIBITED 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 750 


;MOVE TO MAILBOX # *#axeex 274 
;SET MSGTYP TO FATAL ERROR 
[WRONG TSTNM,OR WRONG $TSTNM 

: TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 743 


Renee 


aekeene 


LEAR AERA AERA AKAREKERAAERAEARAEAKAEARARRAERARAAERARAAAERAERERAEAREKEKEKER HRA RARER E EH 


TEST THAT THE TRACE BIT IS SAVED IN THE STACK 


'MARAAAAASZAALAAL£LZE SL SALSSERSSSASASASASR RRS SRR ER RRR SARS RRR RRR RRR RRR RRR RR RAR ARR RARER RSE SD S| 


@ASTESTN 

#102 ,a4$TESTN 
STP3 

BUFF ,%6 
MTRC1,14 


16 
#20,-(SP) 
#TRC1,~(SP) 


BUFF ~2 ,420 
STP3D 


#275 ,QASFATAL 
(R2) 


UPDATE TEST NUMBER 

; SEQUENCE ERROR? 

;BR_TO ERROR HALT ON SEQ ERROR 
;SET UP STACK POINTER 

; TRACE TRAP RETURN 


;SET THE T BIT 
;CHECK FOR T BIT ON STACK 


eeaeeraree 


sMOVE TO MAILBOX # **#eee8 = 275 
:SET MSGTYP TO FATAL ERROR 
T BIT NOT SAVED ON THE STACK,OR WRONG $1STNM 
‘ TO SCOPE REPLACE HALT W/ 240 
* AND REPLACE NEXT INST wW/ 752 


. MACRO M1111 27-SEP-79 15:56 PAGE 70-8 
710 TEST THAT THE TRACE BIT IS SAVED IN THE STACK SEQ 0051 


0°3210 012767 000016 164576 STP3D: MOV #16,14 


;THIS ROUTINE TEST THAT NO LEGAL ADDRESS TRAPS. 
;AND THAT AN ILLEGAL ADDRESS TRAPS TO LOCATION 4 
EISUEIEUO UIE IUISIUIIDIIIOISIUIDISIIOIUIUIIOUOIUIDIOIDIDIIIUIDIDUIDIUIDUIIUOIODO DEE rrr hen nennnnnnnns 
TEST 103 TEST NON-EXISTENT ADDRESS TRAPS 
IBUIOOIIOIUISISISISIOIDIIOIIOIOIIOIUISIOIIDIUOOOIUIDIOIOIIDIIUIOIODIUIOIIDIUUD Orth ntnntnnnnnnentens 
013216 TST103: INC @ASTESTN ;UPDATE TEST NUMBER 
CMP #103,@A4STESTIN ;SEQUENCE ERROR? 
BNE AUTO1 BR TO ERROR HALT ON SEQ ERROR 


;THIS ROUTINE TESTS MEMORY UNTIL IT DOES A NXM TRAP 
BR ADALL 


20 
- teathenct :CLEAR CPU ERROR REGISTER 


164524 MATRAP ,4 ;SET UP ADDRESS TRAP ENTRANCE 
NOR : BUFF , SP 
(Q)+ IF OUTSIDE OF CORE, TRAP T 
020027 MP %0,4160000 31S POINTER IN SIDE ° CORE 
101772 NOR ;TEST THE REST OF CORE 


012737 000302 #276,@ASFATAL :MOVE TO MAILBOX # xteeeee 276 senenee 
005212 (R2) :SET MSGTYP TO FATAL ERROR 
000000 SSHOULD HAVE TRAPED 
> TO SCOPE REPLACE HALT W/ 240 
> AND REPLACE NEXT INST W/ 751 
HERE ON AN ADDRESS TRAP 


177724 TRAP: MOV RO, CORH :MOVE THE FIRST NXM LOCATION IN CORH 
165162 MOV @#CPUERR,RCPUER “SAVE CPU ERROR REGISTER 
165154 IC #CERMSK,RCPUER :MASK OFF UNUSED ERROR REG BITS 
013326 160000 %0 4160000 :WHICH CPU ERROR REG BIT SHOULD BE 
09 + SET - NON EXISTANT MEMORY (BIT 5) 
0 : : OR UNIBUS TIMEOUT (BIT 4) 
013332 1$ ‘BRANCH IF UNIBUS TIMEOUT BIT SHOULD BE SET 
0133 165140 4#40,RCPUER ‘1S NON-EXISTANT MEMORY BIT SET? 


000302 #277 ,QASFATAL ;MOVE TO MAILBOX # seeeaee 277 aananee 
(R2) ;SET MSGTYP TO FATAL ERROR 
013354 000000 ; INCORRECT CPU ERROR REG CONTENTS 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 725 


165114 ; MP #20,RCPUER 1S UNIBUS TIMEOUT BIT SET? 


000302 #300,@A4SFATAL ;MOVE TO MAILBOX # seaneee 300 seeeeee 
(R2) ;SET MSGTYP TO FATAL ERROR 
; INCORRECT CPU ERROR REG CONTENTS 
; TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 713 
; THIS aa ace NXM TRAPS UNTIL ¥ FINDS AN EXISTANT renet LOCATION 
$: #160001 ,RO rit UP THE HIGHEST MEM LOCATION 
CTRAP: CLR BHCPUERR CLEAR CPU ERROR REGISTER 
013452 MOV M#BTRAP ,4 ‘SET UP THE VECTOR 


013356 
3360 





TEST 


013420 
2 0134 
1423 0134 
1424 0134 
1425 013434 
013436 
013444 
013446 


SR 


1445 013562 
1446 OI Se 


1447 013604 
1449 013612 


450 
1481 013616 


MACRO ™1111 


026727 
001706 


012737 
005212 


012767 
005067 


005067 


164320 
000302 


177766 
177413 
160000 


000040 
000303 


000020 
000304 


164706 


000305 


000006 
164170 


000020 


000302 


000302 


165002 
164774 


164760 
000302 


164734 
000302 


*> 


013426 


000302 


164172 


27=SEP=79 16:56 PAGE 70-9 
NON-EXISTENT ADDRESS TRAPS 


MOV #BUFF ,SP 
TSTB. = = (RO) 

DIRAP: INC RO 
CMP RO, CORH 
BEQ TRAPB 
MOV #301, @4$F ATAL 
INC (R2) 
HALT 
BR TRAPB 

BIRAP: TST STATUS 
BEQ 3$ 
MOV #302, 0ASF ATAL 
INC (R2) 
HALT 

3$: MOV @#CPUERR,RCPUER 
BIC #CERMSK,RCPUER ; 
CMP %0, #160000 
BHIS 1% 
CMP #40,RCPUER 
BEO 2$ 
MOV #303, a04SF ATAL 
INC (R2) 
HALT 
BR 2$ 

1$ CMP #20,RCPUER 
BEQ 2 
MOV #304 ,aQ4SF ATAL 
INC (R2) 
HALT 

2$ CMP BUF F-4,4DTRAP 
BEQ CTRAP 

AUTO1: 
MOV #305, Q4SFATAL 
INC (R2) 
HALT 

TRAPB: MOV 46,4 


“MOVE TO MAILBOX # 


DOES IT EXIST? 
IF Hi INCREMENT IT 
:1S IT THE SAME LOCATION? 


;MOVE TO MAILBOX aaneeee 3501 
;SET MSGTYP TO FATAL ERROR 
:CONTENTS OF RO AND CORH SHOULD HAVE BEEN EQUAL 
; TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 670 
[IF THIS COMPARISON FAILS IT ~ ing & 
[THAT SOME LEGAL ADDRESS TRAPPED OR 
S THAT AN ILLEGAL ADDRESS DID NOT TRAP 


gaennaan 


MOVE TO MAILBOX # **#eeeKe® aeennne 
SET MSGTYP TO FATAL ERROR 

[NEW PSW SHOULD HAVE BEEN ZERO 

; TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 657 


; SAVE CPU ERROR REGISTER 


WHICH CPU ERROR REG BIT SHOU 
; SET - NON EXISTANT MEMORY (BIT 5) 

; OR UNIBUS TIMEOUT (BIT 4) 

;BRANCH IF UNIBUS TIMEOUT BIT 2 ees BE SET 
31S NON-EXISTANT MEMORY BIT SET 


MOVE TO MAILBOX # *xexeex 303 
;SET MSGTYP TO FATAL ERROR 

; INCORRECT CPU ERROR REG CONTENTS 
> TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 635 


31S UNIBUS TIMEOUT BIT SET? 


;MOVE TO MAILBOX # **xxaxe = 304 
;SET MSGTYP TO FATAL ERROR 

; INCORRECT CPU ERROR REG CONTENTS 
: TO SCOPE REPLACE HALT W/ 240 

; AND REPLACE NEXT INST W/ 623 


302 


Rake RRKE 


Raenakene 


aeaeeee 305 aeanene 
;SET MSGTYP TO FATAL ERROR 
[OLD PC WAS NOT SAVED OR WRONG $TESTN 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 612 


CLR 6 
7THIS ROUTINE WILL FIGURE OUT IF YOU HAVE A DL11W 


CLR PROF TE 


SEQ 0052 





| B 5 
«MAIN. MACRO M1111 27-SEP-79 16:56 PAGE 70-10 
7103 TEST NON-EXISTENT ADDRESS TRAPS SEG 0053 


1452 013622 012706 000500 MOV #BUFF , SP :SET UP THE STACK POINTER 
1453 013626 012767 013644 164150 MOV #DL11W,4 [SET UP THE TRAP VECTOR 
1454 013634 005767 163724 TST TPS [TEST THE PUNCH STATUS REGISTER 
1455 013640 000403 BR DL11W1 “BRANCH IF IT EXISTS 
1456 013642 000000 PROFTE: 000000 
1457 013644 005267 177772 DL11W: INC PROF TE ; INCREMENT IF NO DL11W 
1458 013650 012767 000006 164126 DL11W1: MOV #6.4 
1460 FRA AERA ERE RERREE RRA ERRERE RE REEREREE REE REAR RRERREEREEEEREEAEREREREERE ERE EERE ee 
TEST 104 TEST THAT A TTY INRUP CAUSES AN OVERFLOW TRAP 
LAER ERE REE ERA ERE E REAR ERRERERERAEKEREERREREEREAR EERE RRE EEE 
013656 005237 000304 TST104: INC aASTESTN [UPDATE TEST NUMBER 
013662 022737 000104 000304 CMP #104, a4S$TESTN :SEQUENCE ERROR? 
013670 001031 BNE TDEC8 “BR TO ERROR HALT ON SEQ ERROR 
1461 013672 005767 177744 TST PROF TE 
1462 013676 001042 BNE R7TRX 
1463 013700 000005 RESET 
1464 013702 012767 000340 164066 MCV #340, STATUS ;LOCK OUT INTERRUPT 
1465 013710 012706 000400 MOV #400, %6 :SET UP STACK TO OVERFLOW 
1466 013714 012767 013766 164062 MOV #TDEC77.4 7SET UP OVERFLOW TRAP 
1467 013722 012767 013754 164134 MOV #TDECB,64 :SET UP INTERRUPT VECTOR 
1468 013730 012767 000100 163626 MOV #100, TTCSR :SET INTERRUPT ENABLE 
1469 013736 005067 164034 CLR STATUS ZALLOW INTERRUPT TO OCCUR 
1470 013742 012737 000306 000302 MOV #306,@ASFATAL  :MOVE TO MAILBOX # wxexnex 306 seenene 
013750 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
013752 000000 HALT NO INTERRUPT OCCURRED 


; “ro SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 746 


1471 013754 TDEC8: 
013754 012737 000307 000302 MOV #307, QASFATAL ;MOVE TO MAILBOX # *etuwee 307 xannnne 
013762 005212 INC (AZ). ;SET MSGTYP TO FATAL ERROR 
013764 000000 HALT OVERFLOW TRAP DID NOT OCCUR OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST Wy 741 
1472 013766 005067 163572 TDEC77: CLR TTCSR :CLEAR INTERRUPT ENABLE 
1473 013772 012767 000006 164004 MOV #6,4 
1474 014000 005067 164002 CLR 6 
1475 014004 R7TRX: 
1476 TRAE ERK RARER REKEREREEEREREKERA ETRE Ae eee 
STEST 105 TEST THAT A TRAP OCCURS BEFORE INRUPT 
FRR ERR EKER AEE EEE ERE KERR ERAEREEEERERERRAREERARERER ARERR 
014004 005237 000304 TST105: INC @ASTESTN UPDATE TEST NUMBER 
014010 022737 000105 000304 CMP #105, BySTESTN >SEQUENCE ERROR? 
014016 001037 BNE TR ;BR TO ERROR HALT ON SEQ ERROR 
1477 014029 005767 177616 TST PROF TE 
1478 014024 001046 BNE ey - 
1479 014026 012706 000500 MOV F ,%6 
1480 014032 012767 000340 163736 MOV #300, STATUS :SET TO A HIGH PRIORITY LEVEL 
1481 014040 012767 014104 164016 MOV 
6 012767 000100 163510 MOV m0: TTCSR ; INTERRUPT FOR TTY PUNCH/PRINTER 
1483 014054 012767 014130 163752 MOV WBR71 , 34 ; TRAP VECTOR 
1484 014062 012767 014116 163774 MOV MTR2,64 TTY VECTOR 
1485 0140706 012767 000340 163740 MOV #340,36 ZIF TRAP TRAPS, MOVE 340 TO PRIORITY 
1486 014076 005 163674 CL STATUS >SHOULD INTERRUPT AT END OF CLR INST 
py “4 beh 104400 mae TRAP : TTY INTERRUPT SHOULD OVERRIDE TRAP 


014104 012737 000310 000302 MOV #310, Q4$FATAL ;MOVE TO MAILBOX # seeneee 310 seeeeee 





GIP DAS EERE REEL EO EL, SR yr errr Airrar air 2 
MACRO M1111 27-SEP-79 16:56 PAGE 70-17 
TEST THAT A TRAP OCCURS BEFORE INRUPT ; SEQ 0054 


014112 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
014114 000000 HALT sNEITHER TRAP NOR INRUPT OCCURED 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 740 


1489 014116 TRe: 
014116 012737 000311 000302 MOV #311, @4SFATAL sMOVE TO MAILBOX # *exeeee 31] taeneen 
014124 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
014126 000000 HALT ; INRUPT OCCURRED FIRST,OR WRONG $TSTNM 
> TO SCOPE REPLACE HALT wW/ 240 
; AND REPLACE NEXT INST W/ 733 
1490 014130 005067 163702 BR71: CLR 36 
1491 014134 042767 000100 163422 BIC #100, TTCSR 
1492 014142 NODL : 
1493 RII ISIIIOIUISIIIISIOIIOIIOIIIOIIIOIIIIIIIIOIIOIIIUIIOIUIOIUIDIIIUIDIUIDIIUIOIDIDIOIIUIDIUIDIOIIOIIUIIUIDIDIDIIOD Ut tt 
i TEST 106 TEST THAT A PENDING INRUP, INRUP BETWEEN TRAPS 
OI IIOIIOIISIIDIIIIOIIUISIUIOIIIDIIOIIIDIOIIOIIIOIUIOIOIOIOIIIUIDIOIOIIIOIIIOIIIDIOIUIDIOIOIDIOISIIOIIOIDIDIDIDIDEIDIOIDIOIIOIDIDIDINIDIDIDID INDI t 
014142 005237 000304 TST106: INC @ASTESTN ;UPDATE TEST NUMBER 
014146 022737 000106 000304 CMP #106,@4$TESTN ;SEQUENCE ERROR? 
014154 001031 BNE TRS ‘BR TO ERROR HALT ON SEQ ERROR 
1494 014156 005767 177460 TST PROF TE 
7495 014162 001046 BNE NODL1 
1496 014164 012706 000500 MOV BUFF ,%6 
1497 014170 012767 000340 163600 MOV 4340, STATUS 
1498 014176 012767 000100 163360 MOV #100,TTCSR 
1499 014206 012767 014236 163622 MOV MTR3,34 ; TRAP 
1500 014212 012767 014252 163644 MOV ATRS 64 :TTY OUTPUT 
1501 014220 012767 014240 163572 MOV #TR5,20 :10T 
1502 014226 012767 000340 163566 MOV #340,22 :I0T PRIORITY 
1503 014234 104400 TRAP ’ ; THE ACT OF TRAPPING LOWER PRIORITY 
tone aesak 000004 iat IOT ; INTERRUPT SHOULD OCCUR IN PLACE OF IOT /iRAP 
014240 012737 000312 000302 MOV #312, QASFATAL sMOVE TO MAILBOX # xeeeeee 312 xennnen 
014246 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
014250 000000 HALT iN, INTERRUPT BETWEEN TRAPS,OR WRONG $TSTNM 
; TO SCOPE REPLACE HALT W/ 240 
é AND REPLACE NEXT INST W/ 741 
1506 014252 005067 163544 TR4: CLR 22 ;CLR IOT PRIORITY 
1507 014256 012767 000036 163550 MOV 436,34 
1508 014264 012767 000066 163572 MOV 466,64 
1509 014272 012767 000022 163529 MOV #22,20 
44 014300 NODL1: 
1512 DIR III IIIOISIOIIIIOIOIIIOIDIIIIOIIOIIOIUIDIUIOUIOIUIIOIOOIOIOIOIOIDIOIIOIDIDIOIDDIDIDIOIDIIOIDOIDIDGIUIDISIDINIOINID int 
STEST 107 TEST THAT ‘'RESET*’ GOES TO OUTSIDE WORLD 
SRI I IIIT IOI IIOIUIOI OIC IOI IOI SSO OR SSE EEE ERE REE REE ER EER EERE 
014300 005237 000304 1ST107: INC aASTESTN UPDATE TEST NUMBER 
014304 022737 000107 000304 CMP #107, HS TESTN TSEQUENCE ERROR? 
014312 001027 BNE TST110-12 :BR TO ERROR HALT ON SEQ ERROR 
1513 014314 005767 177322 TST PROF TE 
1514 014320 001031 BNE NODL2 ; 
1515 014322 012767 000100 163234 MOV #100, TTCSR :SET INTERRUPT ENABLE 
1516 014330 012767 000100 163222 MOV #100,TRCSR 7SET INTERRUPT ENABLE 
1517 014336 000005 RESET ;SHOULD CLEAR INTERRUPT ENABLE 
1518 014340 032767 000100 163216 BIT #100, TTCSR ; TEST FOR CLEAR 
1519 014346 001405 BEQ 1$ 
014350 012737 000313 000302 MOV #313,Q4$FATAL ;MOVE TO MAILBOX # *enwnee 313 senenne 


014356 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 





-MAIN. MACRO M1111 27-SEP-79 16:56 PAGE 70-12 
1107 TEST THAT ‘RESET’’ GOES TO OUTSIDE WORLD SEQ 0055 


014360 000000 HALT ;RESET FAILED TO CLEAR TTCSR 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 754 


1520 014362 032767 000100 163170 1$: BIT #100,TRCSR TEST FOR CLEAR 
1521 014370 001405 BEQ TST110 
014372 012737 000314 000302 MOV #314, QASFATAL sMOVE TO MAILBOX # *«eeenwe 314 teneeve 
014400 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
014402 000000 HALT :RESE! FAILED TO CLEAR TRCSR,OR WRONG $TSTNM 
TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 743 
1§22 014404 NODL2: 
1523 DOI IOI IOI IUIUIIIOIOIUIDIDIDIOIIIOIOIOIUIOIOIUIOIUIOIOIOIOIUIDIOIUIOIUIOIOIOIUIUIDIIIOIOIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDINIDINIDIDIDIN I ttt 
“TEST 110 TEST THAT RESET HAS NO EFFECT ON’ TRACE TRAP 
ak cor) aentektn | aOOAME SEE? GAO Cee Pe te ee 
014404 005237 000304 TS7110: INC @FSTESTN ;UPDATE TEST NUMBER 
014410 022737 000110 000304 CMP #110, Q4$TESTIN ;SEQUENCE ERROR? 
014416 001014 BNE RESET3 ‘BR - TO ERROR HALT ON SEQ ERROR 
1524 014420 012706 000500 MOV ABUFF ,%6 ;SET STACK 
1525 014424 012767 014462 163362 MOV MRESET2,14 ;SET UP TRACE VECTOR 
1526 014432 012746 000020 MOV #20,-(R6) SET THE T-BIT ON STACK 
1527 014436 012746 014444 MOV #1$,-(R6) sMOVE NEW PC ON STACK 
1528 014442 000006 RTT 
1529 014444 000005 1$: RESET ;SHOULD HAVE NO EFFECT 
1530 014446 000005 RESET sNO EFFECT 
1531 014450 RESETS: 
014450 012737 . 000315 000302 MOV #315, QA$FATAL ;MOVE TO MAILBOX # *eeeeee 315) teeneee 
014456 005212 INC (R2) 7SET MSGTYP TO FATAL ERROR 
014460 000000 HALT ; TRACE TRAP FAILED,OR WRONG $STSTNM 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 756 
1532 014462 005067 163310 RESET2: CLR STATUS 7CLEAR TRACK 
1533 014466 005067 163324 CLR 16 ; TRACE STATUS 
lege 014472 012767 000016 163314 MOV #16,14 
1536 OI IOIIOIDIIIGIOIIIIOIIOIOIUIDIDIOIIOIOIOIDIUIUIIOIIDIUIOIUIOIUIOIUIIOIUIOISIOIDIUIDIOIIOIUINIDUIDIUIDIIDIUIDIIOIO RODEO t ttt 
<Fesr 117 TEST THAT WHEN TTY INRUPTS IT POPS NEW STATUS 
a ce. sebineaa - ) eeeee Seer tage tne aoe een ae 
014500 005237 000304 TST111: INC @ASTESTN ;UPDATE TEST NUMBER 
014504 022737 000111 000304 CMP #111,@A4$TESTIN ;SEQUENCE ERROR? 
014512 001051 BNE TrY11 ‘BR TO ERROR HALT ON SEQ ERROR 
1537 614514 005767 177122 TST PROF TE 
1538 014520 001055 BNE NODL3 
1539 014522 000005 RESET 
1540 014524 012706 000500 MOV HBUFF ,%6 ;SET UP STACK 
1541 014530 012767 0614554 163326 MOV ATTY3,64 ; INTERRUPT VECTOR 
1542 014536 005067 163234 CLR STATUS ;DROP PROCESSOR PRIORITY 
1543 014542 012767 000357 163316 MOV #35766 ;HIGH PRIORITY ON INTERRUPT 
1544 014550 005167 163010 COM TTCSR ;SHOULD SET INTERRUPT ENABLE & INTERRUPT 
1545 014554 026727 163216 000357 TTY3: CMP STATUS ,4357 
1546 014562 001405 BEQ 1$ 
014564 012737 000316 000302 MOV #316, Q4$FATAL sMOVE TO MAILBOX # *«xeawne 316 sennene 
014572 005212 INC (R2) 7SET MSGTYP TO FATAL ERROR 
014574 000000 HALT : INTERRUPT DID NOT POP CORRECT STATUS 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 746 
1547 014576 000005 1$: RESET ;CLR NTERRUPT ENABLE 
1548 014600 012706 0005C0 MOV BUFF ,%6 STACK SET UP 





-MA 
T11 


— ee 


014650 
014654 


014654 


015014 
015016 


015020 


1579 015042 


N. MACRO M111! 
TEST THAT WHEN 


012767 
00 

012737 
005212 
000000 


005067 


026727 
001405 


012737 
005212 
000000 


005067 


TTY INRUPTS IT 


162710 


000304 
000112 


176746 


162636 


000015 
162622 


000015 
000100 
163012 


000320 


162772 
000321 


163450 


000322 


162516 


163252 
163152 


000302 


000304 


162660 


163146 


162630 


162614 
162604 


000302 


000302 


014766 


000302 


A 16:56 PAGE 70-13 


POPS NEW STATUS 





SEQ 0056 


;SET INTERRUPT ENABLE 


TO MAILBOX # *«xeewnne 357 xantene 


;SET MSGTYP TO FATAL ERROR 
; INCORRECT STATUS,OR WRONG $TSTNM 


TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 721 


REO EREREEREEEEEEEEREAEE ERE RER ERE RE REE RREEEREEREERE EKER EEE EERE EEE KEE ee 


CARRERE RRR EERE EAE RARER EEEREREEEREEEEEREAHEAEREREEARERE RE ERE EE EH 


;UPDATE TEST NUMBER 
TO ERROR HALT ON SEQ ERROR 


;CLEAR INTERRUPT ENABLE 


SET UP THE INTERRUPT VECTOR 


;DO0 A CARRIAGE RETURN 
;WAIT FOR READY TO COME UP 


;DO ANOTHER CARRIAGE RETURN 
SET THE INTERRUPT ENABLE 


;WAIT FOR THE INTERRUPT 


RREKKRE Rekteee 


xX # 320 

wAIT INSTRUCTION DID NOT LOOP 
TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 733 


“S&T MSGTYP TO FATAL ERROR 


REAKEKE 


321 


weenenee 


:SET MSGTYP TO FATAL ERROR 
NEW PSW SHOULD HAVE BEEN ZERO 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 723 


[1S THE OLD PC SAVED 


RERKKKE 


322 


Reeaeeee 


TO MAILBOX 4 


;SET MSGTYP TO FATAL ERROR 
;OLD PC WAS NOT SAVED OR WRONG $TESIN 


TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 712 


MOV #TTYS,64 ; INTERRUPT VECTOR 
CLR 66 | CLR NEW STATUS 
MOV #157,STATUS = PROCESSOR STATUS 
COM TTCSR 
TTY: TST STATUS 
BEQ TTT37 
TTY11; 
MOV #317, @A4SFATAL ;MOVE 
INC (R2) 
HALT 
Tl) 3c TLR TTCSR 
NODL 3: 
sTEST li2 TEST THE ‘WAIT’ INSTRUCTION 
TST112: INC OASTESTN 
CMP #112,Q4$TESTN ;SEQUENCE ERROR? 
BNE WATES BR 
TST PROFTE 
BNE NODL4 
BIC #100,TPS 
MOV #BUFF ,SP ;SET UP THE STACK 
MOV AWATE , 64 
CLR 66 
WATE1: TSTB TPS WAIT FOR READY 
SPL WATE1 TO BE UP 
V #15,TPB 
WATE2: TSTB TPS 
BPL WATE2 
MOV #15,TPB 
BIS #100,TPS 
CLR STATUS :CLEAR THE PSW 
WATE3: WAIT 
MOV #320, Q4SFATAL ;MOVE TO MAILBU 
INC (R2) 
HALT 
WATE: ia Fa :1S THE Ps CORRECT? 
MOV #321, Q4$F ATAL sMOVE TO MAILBOX # 
INC (R2) 
HALT 
1$: CMP BUFF =-4 ,AWATE3+2 : 
BEQ WATES 
WATES: 
MOV #322, QASFATAL sMOVE 
INC (R2) 
HAL T 
WATE4: CLR TPS 


;CLEAR INTERRUPT ENABLE 
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T112 TEST THE ‘WAIT® INSTRUCTION SEQ 0057 
le 015046 NODL4: 
1582 J URAAAARAARAAAREARARAAAATERERKRRARRERRERRERRHRRAHE (ARR RRR RAR RRR RRR RRR RRR RRR RRR ERE SE 
TEST 113 TEST THAT ALL RESERVED INS TRAP 
STAR AAARAAAARARARAARARARARAEERRARAARARAAAAERARERRRARARARAEARHRRERAERAEHEHEEHAE EERE AREHE HE 
015046 005237 000304 TST113: INC @ASTESTN UPDATE TEST NUMBER 
015052 022737 000113 000304 CMP #113,Q4$TESTIN  ;SEQUENCE ERROR? 
015060 001140 BNE RET4 ;BR TO ERROR HALT ON SEQ ERROR 
1583 015062 012737 015110 000244 MOV MTRAP244 04244 ; SET UP TO SEE IF 
1584 015070 013767 000010 000042 MOV a410, TENSAVE THIS PROCESSOR HAS THE 
1585 015076 012737 015120 000010 MOV #TRAP10,a410 FLOATING POINT OPTION 
1586 015104 170007 «WORD 170007 ; AN ILLEGAL FPP INSTRUCTION 
1587 015106 BR TSFCIS 
1588 015110 TRAP244: ; IF FPP IN-- 
1$89 015110 013767 015512 000400 MOV @A4F PP FINISH RESET END OF TABLE POINTER 
1590 015116 000002 RT] ; AND RETURN 
1591 015120 TRAP 10: ; LEAVE THE TABLE ALONE 
1592 015120 005737 000306 TST @A$SPASS FIRST PASS?? 
1593 015124 001004 BNE 1$ ;BRANCH IF NO 
1594 015126 012700 017335 MOV AMS GNFP ,RO 
1595 015132 004767 002362 JSR PC,PRIMSG ;PRINT MESSAGE POINTED TO BY RO 
1596 015136 000002 1$: RTI ; RETURN 
1597 015140 TENSAVE:.WORD 0 ; A PLACE TO STORE CONTENTS OF 10 
1598 015142 TSFCIS: ;SEE IF PROCESSOR HAS CIS OPTION 
12an 015142 012737 015220 000004 MOV MAROUND , 244 ;SET TIME OUT TRAP VECTOR 
1601 015150 012737 015170 000010 MOV MTINCIS,Q@410 ;SET UP RESERVE INST TRAP VECTOR 
1602 015156 012700 160000 MOV #160000 ,RO POINT RO TO NON-EXISTED MEMORY LOC. 
1603 015162 076020 -WORD 76020 :CIS INST = L2DR (DESTROYS CONTENTS OF RO,R1,R2,R3) 
1604 015164 000000 HALT :CIS INST FAILED TO TRAP | 
1605 015166 000421 BR ADJNC 
+954 015170 TNCIS: ;NO CIS OPTION,EXPECTED TRAP ETHER TO 4 OR 10 DID NOT HAPPEN 
1608 015170 005737 000306 TST @4SPASS FIRST PASS 
1609 015174 1 BNE 1$ 
1610 015176 012700 017400 MOV #MSGNCIS ,RO 
1611 015202 67 002312 JSR PC,PRIMSG SPRINT MESSAGE POINTED TO BY RO 
1612 015206 012703 015406 1$: MOV ATABLE1,TAB 
1613 015212 062716 ADD#2, (SP) 
1614 015216 000002 RTI 
1615 015220 012703 015436 AROUND: MOV #TABLE,TAB 3CIS OPTION PRESENT 
1616 015224 062716 000002 ADD#2, (SP) 
1617 015230 RTI 
1618 015232 012737 000246 000244 ADJNC: MOV #246 ,@A244 ; RESTORE THE TRAP VECTOR 
1619 015240 016737 177674 000010 MOV TENSAVE ,a410 ; RESTORE THE ILLEGAL INST. VECTOR 
1620 015246 012305 GIN1: MOV (TAB) +,F IRST FIRST OR CURRENT INSTRUCTION 
1621 015250 012301 MOV (TAB) +,LAST LAST INSTRUCTION OR GROUP 
1622 015252 020567 000240 CMP FIRST,F INISH TESTED ALL 
1623 015256 001525 BEQ GIN3 YES BRANCH 
1624 015260 010567 000234 MOV FIRST, INST SET UP INST 
1625 015264 005267 000230 GINe: INC INST 
1626 015270 012767 015312 162512 MOV #RET,10 ;SET UP RETURN FROM TRAP 
1627 015276 012706 000500 MOV BUFF , SP ;SET UP STACK POINTER 
1628 015302 005067 162470 CLR CC ;CLEAR PRIORITY 
ioe 015306 000167 000206 JMP INST sEXECUTE RESERVED INSTRUCTION 


1631 : TRAPPING SHOULD SEND YOU HERE 
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H 
3 TEST THAT ALL RESERVED INS T SEQ 0058 
1632 015312 020627 000474 RET: CMP SP , MBUF F <4 TEST DECREMENT OF SP 
1633 015316 001405 BEQ RET 
1634 015320 012737 000323 000302 MOV #323,Q4SFATAL ;MOVE TO MAILBOX # seeteee 305 seeeewe 
015326 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
015330 000000 HALT WRONG DECREMENT 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 653 
1635 015332 026727 163136 015522 RET1: CMP Sate. [LOC OF INST UNINCREMENTED 


1636 015340 001405 BEQ 

1637 015342 012737 000324 000302 MOV #324,QM$FATAL ;MOVE TO MAILBOX # seeenee 324 saennee 
015350 005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
015352 000000 HALT INST INC ON TRAP 


; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 642 


| 
1638 015354 005767 163116 RET2: TST BUFF =2 
1639 015360 001405 BEQ RET3 
015362 RETS: 
015362 012737 000325 000302 MOV M325, ,QASFATAL ;MOVE TO MAILBOX # stennee 3525 sanenne | 
015370 005212 INC (R2) 7SET MSGTYP TO FATAL ERROR 
015372 000000 HALT ;CONDITION CODES SET ON TRAP OR WRONG $TSTNM | 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 632 
1640 015374 026701 000120 RET3: CMP INST, LAST 
1641 015400 001722 BEQ GIN1 7SET UP NEW GROUP 
1646 015402 000167 177656 JMP GIN2 ;FiNISH OLD GROUP 
1644 015406 076017 TABLE1: 76017 :CIS INSTRUCTIONS 
1645 015410 076032 76032 
1646 015412 076037 76037 
1647 015414 076045 76045 
1648 015416 076047 76047 
1649 015420 076077 76077 
1650 015422 076117 76117 
1651 015424 076132 76132 
1652 015426 076137 76137 
1653 015430 076145 76145 
1654 015432 076147 76147 
1655 015434 076177 76177 
1656 015436 000007 TABLE: 7 
1657 015440 000077 77 
1658 015442 000207 207 3RTS,RT1,JMP 
1659 015444 000227 227 _ 
1660 015446 007077 7077 
1661 015450 007777 7777 
1662 015452 075037 075037 
1663 015454 076017 76017 
1664 015456 076032 76032 
1665 015460 076037 76037 
1666 015462 076045 76045 
1667 015464 076047 76047 
1668 015466 076132 76132 
1669 015470 076137 76137 
1670 015472 076145 76145 
1671 015474 076147 76147 
1672 015476 076077 76077 
1673 015 076117 76117 


500 ! 
1674 015502 106377 106377 





015532 


015532 


015572 


015574 
015600 
015606 
015610 


1697 015612 


1701 015634 
015636 
015644 
015646 


1702 015650 


— at aot I 


MACRO M1111 


105037 
012737 
005212 
000000 


013767 
042767 
022767 
001405 


000204 
000174 


000500 
177766 
015612 
040000 


177777 
000326 


177766 
177413 
090200 


000327 


177766 
015710 
140000 


177777 
000330 


177766 
177413 
000200 


000304 


162220 
177776 


000302 


162662 
162654 
162646 


000302 


2122 
7776 


~ 
NO 


000302 


162564 
162556 
162550 


IN. 27=SEP=79 16:56 PAGE 70-16 
3 TEST THAT ALL RESERVED INS TRAP 


; START OF THE FPP INSTRUCTIONS 


sEND FLAG 


sWILL CONTINUE RESERVED INST 


; SHOULD TRAP TO LOC 10 


4s" 10 SHOULD SEND 


. 
. 


you TO 


SEQ 0059 


BARRA RR SAAS RA LASER RRR SRA SRR RE RRR RRR RR RRR RR ASRS RRR RR ERR RRR RRR RRR RRR RRR RRR RR RRR RRR RRR SDDS 


BOAR AAAAARASRARARASLLASRASRRRRRRRR RS RS RASA RRR RRR RRR RRR RRR RRR RRR RRA RRR RRR RRR RRR RRS E DSS 


;UPDATE TEST NUMBER 
: SEQUENCE ERROR? 


TO ERROR HALT ON SEQ ERROR 


; STACK POINTER SETUP 


106477 
106677 
107777 
FPP: 167777 
177777 
FINISH: . 
INST: HALT 
HALT 
HALT 
HAL T 
HALT 
GINS: 
sTEST 114 TEST ILLEGAL HALT 
TS7T114: INC OAV$TESTN 
CMP #114, ,QASTESIN 
BNE CERIH 
MOV #BUFF ,SP 
CLR @ACPUERR 
MOV #1$,RTRAPS 


HALT 
sFAILURE, NO TRAP 
CLRB 


1$: 


es: 


FAILURE, WAND TRAP 
RB 


3$: 


BIS #046000, aaPSw 
aAPSW+1 

MOV #326, QA$FATAL 

INC (R2) 

HALT 


MOV @#CPUERR,RCPUER 
BIC #CERMSK ,RCPUER 


CMP #200,RCPUER 
BEQ 2 

MOV #327 ,QASFATAL 
INC (R2) 

HAL T 

CLR ter 

MOV #3$ .RTRAPS 
ote 7140000. asPSw 


CL @4PSwW+1 

MOV oaaye ASF ATAL 
INC (R 

HALT 


CLEAR CPU ERROR REG 
E TURN 


MODE 
sEXECUTE INST UNDER 


3GO BACK TO KERNEL 
;MOVE TO MAILBOX # 
;SET MSGTYP TO FATAL 


;HALT IN SUPER MODE FAILED i 


ISTER 


TEST 


ReKKREE 


ERROR 


; TO SCOPE REPLACE HALT W/ 
AND REPLACE NEXT INST W/ 755 


READ AND SAVE CPU ERROR REGISTER 
MASK OFF UNUSED CPU ERR REG BITS 


IS ILLEGAL HALT BIT 


MOVE TO MAILBOX # 
SET MSGTYP TO FATAL 


SET? 


RAEERKRER 


ERROR 


326 


327 


INCORRECT CPU ERR REG CONTENTS 
; TO SCOPE REPLACE HALT W/ 240 
: EPLACE NEXT INST W/ 736 


CLEAR CPU ER 
SETUP TRAP RETURN 
GO TO USER MODE 


GO BACK TO KERNEL 
MOVE TO MA a 
SET MSGTYP TO FATAL 


HALT IN USER MODE FAILED TO TRAP 


aeektkee 


RR 


TO SCOPE REPLACE HALT W/ 240 
AND REPLACE NEXT INST W/ 716 


MOV @#CPUERR,RCPUER ;SAVE CPU ERROR REGIST 
BIC #CERMSK ,RCPUER ;MASK OFF UNUSED CPU ERR - BITS 
Jae +he'f -RCPUER 31S ILLEGAL HALT BIT S 


Raeeaneee 


Reeeene 


aRekeenee 


: AND R 
: R REG 
: ILBOX 
Z ERROR 
i U - 
ER 
E 
ET 
OOOO ee 








RO M1111 
T ILLEGAL HALT 





012737 
005212 
000000 


000331 


005037 
105037 


177766 
177777 


000304 
000115 


000500 
040000 


177776 
000650 


1731 016042 105037 177777 
1732 016046 012737 000332 
016054 005212 
016056 
1733 016060 012737 040340 
1734 016066 000257 
1735 016070 000230 
1736 016072 013767 177776 
1737 016100 026727 000602 





177777 
000333 


140000 


00023 
013767 
026727 


177776 


1751 016162 000520 





000302 


000204 


177776 


000654 
040017 


000302 


177776 


000606 
040340 


000302 


177776 
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CERIH: 


DONE : 






CLR 
CLRB 


“TEST 115 


TST115: 


2$: 


INC 


#331 ,QASFATAL 
(R2) 


@4CPUERR 
aAPSW+1 


TEST SPL INST. 


@ASTESTN 
#115, Q4$STESIN 
SEQ 


#BUFF SP 
#040000, a4PSw 


a4PSW,SPSW 
a ,4040017 


aA4PSw+1 
#332, Q4$F ATAL 
(R2) 


#040340, a4PSW 
0 
a4PSwW,SPSW 


SPSwW, 4040340 
2$ 


w+ 


a“P 
#333, QASFATAL 
(R2) 


#140000, a#PSw 


7? 
aFP Sw, SPS 
SPSw, #440017 


;MOVE TO MAILBOX # 
;SET MSGTYP TO FATAL ERROR 

; INCORRECT CPU ERR REG CONTENTS 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 677 


;GO BACK TO KERNEL MODE 


eee eee eee eee eee eR PPR RRR RRR RRR RRR RRR RRR RRR RRR RRR ERE R ERE RRR REE ERE EE S| 


FOR NOP IN USER/SUPER MODES 

DOUIEIGIID ISIS ISIEIISIUISIOIIIUIOISIUIIIDIIOIIOIIOIOIUIUIDIUUUIUIUIIUID TEER TEE EE EERE R EEE EEE EEE Eee 
;UPDATE TEST NUMBER 

; SEQUENCE ERROR? 

[BR TO ERROR HALT ON SEQ ERROR 


; SETUP STACK 


4:2 4 SUPER MODE 
SPL SHOULD=NOP IN USER/SUPER MODES 


;SAVE PSW 


;VARIFY THAT PSW HAS NOT CHANGED 


:GO BACK TO KERNEL 
:MOVE TO MAILBO 
;SET MSGTYP TO FATAL ERROR 
sPRIORTY LEVELS CHANGE 

; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE or INST W/ 744 


:SET PRIORTY T 


;CLEAR CONDITION CODES 
>SPL_SHOULD=NOP IN SUPERVISOR MODE 


SAVE PSW 


:VARIFY THAT PSW PRIORTY AND CONDITION CODES HAVE NOT CHANGE 


:GO BACK TO KERNEL 
:MOVE TO MAILBOX # 
:SET MSGTYP TO FATAL ERROR 
es INSTRUCTION CHANDED PSwW SHOULD BE NOP 
; TO SCOPE REPLACE HALT W/ 240 

: AND REPLACE NEXT INST W/ 721 
:GO TO USER MODE 


SET CC 
SPL SHOULD=NOP IN USER MODE 


SAVE PSW 


;VARIFY THAT PSw HAS NOT CHANGED 











aaeaneae 33] neeneee 

































xX # 


KEKKEREE 


332 


eeneane 











RERREKE teense 


333 
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] 
15 TEST SPL INST. FOR NOP IN USER/SUPER MODES SEQ 0061 
1752 016170 001407 BEQ 3$ 
1753 016172 105037 177777 CLRB @APSwW+ ;GO BACK TO KERNEL 
1754 016176 012737 000334 000302 MOV #334,Q4SFATAL ;MOVE TO MAILBOX # seenane 334 seneene 
0162046 005212 INC (R2) ;SET MSGTYP TO FATAL nae 
016206 000000 HALT :PRIORTY LEVELS HAS 


CHANGE D 
: TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 670 


1755 016210 012737 140340 177776 3$: MOV #140340, aaPSW ;SET PRIORTY TO 7 
1756 016216 000257 ccc ;CLEAR CONDITION CODES 
1757 016220 000230 SPL 0 ;SPL_SHOULD=NOP IN USER MODE 
1758 016222 013767 177776 000456 MOV @A4PSW, SPSW ; SAVE PSW 
1759 016230 026727 000452 140340 CMP rom #140340 ;VARIFY THAT PSW PRIORTY AND CONDITION CODES HAVE NOT CHANGE 
1760 016236 001407 BEQ F SPL 
1761 016260 105037 177777 CLRB @4PSW+1 ;GO BACK TO KERNEL 
1762 016244 SEQ: 
016244 012737 000335 000302 MOV A335. QASFATAL ;MOVE TO MAILBOX # seannee 335 sanenne 
016252 O005212 INC (R2) ;SET MSGTYP TO FATAL ERROR 
016254 000000 HALT ;SPL INST.CHANGED PSW OR WRONG TEST# 


; 1O SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 645 





1763 016256 FSPL: 
4 ¢ 016256 105037 177777 CLRB a4PSwW+1 :GO BACK TO KERNEL 
1766 -SBTTL TEST PIRQ LEVELS 
1767 THIS TEST VARIFIES FOR ALL COMBINATIONS OF PIR AND PROCESSOR 
1768 ;PRIORTY LEVELS THAT REQUESTS ARE GRANTED (TRAP TO 240 OCCURS 
1769 ;BY THE PROCESSOR,ONLY WHEN THE PIR IS AT A HIGHER LEVEL THAN 
1770 ; THE PROCESSOR. 
1771 THE CONTENTS OF SPIR,SPSW AND TRP240 SHOULD BE EXAMINED ON ERROR. 
1772 ;SPIR BITS 2-0 CONTAINS ONE LESS THAN THE PIR REQUEST LEVEL AT 
1773 ; THE TIME OF ERROR.SPSW BITS 2-0 CONTAINS THE PROCESSOR PRIORTY 
1774 ;AT THE TIME OF ERROR.TRP240 INDICATES WHETHER OR NOT A TRAP WAS 
1775 EXPECTED (1= EXPECTING TRAP TO 240) 
1776 THE SPL INSTRUCTION IS USED TO SETUP PROCESSOR PRIORTY. 
1777 SNOTE: THIS IS THE FIRST REAL TEST OF THE SPL INST 
1778 ON ERROR, IF EXPECTED PIRQ TRAP DID NOT OCCURE VARIFY SPL 
1779 ZOPERATION BY COMPARING SPSW BITS<2-0> WITH PSwW PRIORTY 
1780 :BITS<7-5>.0N ERROR IF AN UNSPECTED PIRQ TRAP OCCURED 
1781 ;VARIFY SPL_ OPERATION BY COMPARING SPSW BITS<2-0> WITH 
ie PROCESSOR PSW<7-5> ON STACK. 
1784 [RARER ARERR AE TERRA KERKEEREEKERRAAKAEAEAKEEAAAKARAAAEAAAERERKEKE RHE RE RRR R ES 
TEST 116 TEST PIRQ LEVELS AND SPL INSTRUCTION 
FEAR RA RARER EEE EAR AERA EAE AAEARARARAEARAREREKKAEEREERAEKAKER RR KA RARER RRR eee Tee 
016262 005237 000304 TST116: INC @ASTESTN UPDATE TEST NUMBER 
016266 022737 000116 000304 CMP #116,@4$TESTIN ;SEQUENCE ERROR? 
016274 001154 BNE PTRP ;BR TO ERROR HALT ON SEQ ERROR 
1785 016276 005067 000406 CLR PIRPSW 
1786 016302 012737 016642 000000 MOV #ZTRP,a40 SET LOCATION ZERO TRAP VEC 
1787 016310 012737 000340 000002 MOV #340 ,a42 
1788 016316 012737 016656 000004 MOV #T4TRP, ans ;SET UP FAILURE TRAP VEC 
1789 016324 012737 000340 000006 MOV #340, a6 
1790 016332 012737 016672 000024 MOV #T24TRP, aW24 ;SETUP POWER FAIL VEC 
1791 016340 012737 000340 000026 MOV #340 ,a#26 
1792 016346 012737 016604 000240 MOV #PQTRP,@AMPIRVC1 ;SETUP PIRQ VEC 
1793 016354 012737 000340 000242 MOV #340, aMPIRVC2 ;SET gig TO PRIORTY 7 
1799 016362 012706 000500 MLOOP: MOV ABUFF , SP SETUP STACK 
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1116 TEST PIRQ LEVELS AND SPL INSTRUCTION SEQ 0062 
1800 016366 052737 000340 177776 BIS #340, a4P :SET PROCESSOR PRIORTY TO 7 
> COMPUTE EXPECTED. RESULT" 
1802 016374 016700 000310 MOV PIRP 
1803 016400 042700 177707 BIC WS7P0P 20 ;SETUP SPIR 
1804 016404 006200 ASR RO 
1805 016406 006200 ASR RO 
1806 016410 006200 ASR RO 
1807 016412 010067 000266 MOV RO,SPIR ;SAVE RO IN SPIR 
1808 016416 016700 000266 MOV PIRPSW,RO 
1809 016422 042700 177770 BIC #177770,R0 ;SETUP SPSW 
1810 016426 010067 000254 MOV RO, SPSW 
1811 016432 026767 000246 000246 CMP SPIR,SPSW 
1812 016440 002003 BGE 2$ :BRANCH IF PIR > PSW 
1613 016442 005067 000244 CLR TRP240 SCLEAR FLAG 
1814 016446 000403 BR $ 
1815 016450 012767 177777 000234 2%: Moy #177777, TRP240 :SET FLAG 
1816 016456 004767 000232 3$: PC, SETPIRO ‘SETUP PIRQ BASE ON THE # IN SPIR 
1817 er PSwW PRIORTY BASE ON THE # IN SPSW | 
1818 016462 042767 000007 000006 BIC #7,1$ :CLEAR LSB 3 BITS OF SPL INST.AT 1$ 
1819 016470 056767 000212 0C0000 BIS SPSW, 1$ ‘SET LSB 3 BITS OF SPL INST.TO DESIDED PROC. PRI. 
1820 016476 000230 18: SPL 0 :THE ACTUAL PRIORTY SET INTO THE PSW IS CONTROLLED BY 
1821 : THE PREVIOUS TwO INSTRUCTION. 
1822 016500 000240 NOP 
1823 016502 005767 000204 TST TRP240 
1824 016506 001405 BEQ NXTST 
016510 012737 000336 000302 MOV #336, QASFATAL :MOVE TO MAILBOX # *eeeaee 336 aeaenee 
016516 005212 INC (R2) =SET MSGTYP TO FATAL ERROR 
016520 000000 HALT SEXPECTED PIRQ TRAP BUT DID NOT GET IT 
* TO SCOPE REPLACE HALT W/ 240 
: AND REPLACE NEXT INST W/ 717 
1825 016522 000240 NXTST: NOP °SET UP FOR PASS COUNT 
1827 
1828 016524 005267 000160 INC PIRPSW :SETUP FOR NEXT PASS THROUGH LOOP 
1829 016530 026727 000154 000070 CMP PIRPSW,#70 
1830 016536 002711 BLT MLOOP ;BRANCH TO MLOOP IF COUNT IS LESS THAN 70 
1831 016540 005037 177772 CLR aAPIRO [DONE WITH LOOPING PIRQ REQUESTS 
1832 016544 012737 000006 000004 MOV #6, 044 SRESTORE RETURNS 
1833 016552 005037 000006 CLR a6 
1834 016556 005037 000000 CLR aw 
1835 016562 012737 017432 000024 MOV APWRDWN, a4 24 
1836 016570 012737 000242 000240 MOV #242, 04240 
1837 016576 005037 000242 CLR ange 
1838 016602 000542 BR END 
1839 016604 005767 000102 PQTRP: TST TRP240 :PRIORTY TRAP SERVICE 
1840 016610 001344 BNE NXTST 
016612 012737 000337 000302 MOV #337, QASFATAL ;:MOVE TO MAILBOX # xeexeee 337 senenen 
016620 005212 INC (R2) SET MSGTYP TO FATAL ERROR 
016622 000000 HALT ‘EXPECTED NO PIRQ TRAP,BUI GOT ONE 
* TO SCOPE REPLACE HALT W/ 240 
+ AND REPLACE NEXT INST W/ 656 
1841 016624 000736 BR NXTST 
1845 016626 PTRP: 
016626 012737 000340 000302 MOV #340,QMSFATAL :MOVE TO MAILBOX # *eeeeee 340 xennnee 
016634 005212 INC (R2) “SET MSGTYP TO FATAL ERROR 
016636 000000 HALT + WRONG TEST 


NUMBER 
; TO SCOPE REPLACE HALT W/ 240 


016702 


1858 016704 
1859 016706 
1860 016710 


MACRO M1111 


000523 


012737 
005212 
000000 


000722 


012737 
005212 
000000 


000714 


012737 
005212 
000000 


000000 
000000 
000000 


000341 000302 


000342 000302 


000343 000302 


ZTRP: 


TG4TRP: 


T24TRP: 


27=SEP=79 16:56 PAGE 70-20 
TEST PIRQ LEVELS AND SPL INSTRUCTION 


SPIR: 
SPSw: 
PIRPSw: 


END 


#341, QASFATAL 
(Re) 


NXTST 
#342, QA$FATAL 
(R2) 
NXTST 
#343, QA$F ATAL 
(R2) 

. WORD 0 

. WORD 0 

. WORD 0 


; AND REPLACE NEXT INST W/ 616 


sMOVE TO MAILBOX # *etenwe 34] seeenee 


; AND REPLACE NEXT INST W/ 642 


;SET MSCGTYP TO FATAL ERROR 
[UNSPECTED TRAP TO ZERO OCCURED DURING PIRQ TST 
TO SCOPE REPLACE HALT W/ 240 


sMOVE TO MAILBOX # seneee 342 sennvee 


;SET MSGTYP TO FATAL ERROR 

SUNSPECTED TRAP TO 4 DURING PIRG TESTING 
TO SCOPE REPLACE HALT W/ 240 

AND REPLACE NEXT INST W/ 634 


sMOVE TO MAILBOX # **eeuee 343 aeanene 


Pi 


;SET MSGTYP TO FATAL ERROR 
SUNSPECTED POWER FAIL TRAP DURING PIRQ TESTING 
TO SCOPE REPLACE HALT W/ 240 


; AND REPLACE NEXT INST W/ 626 


SEQ 0063 


MACRO M1111 27=SEP=79 16:56 PAGE 71 
TEST PIRQ LEVELS AND SPL INSTRUCTION 


177772 PIRQ=177772 
000240 PIRVC1=240 


4 
000242 PIRVC2=242 
000000 TRP240: .WORD 0 


SETPIRQ: 
026727 177764 000000 C Sates 
177754 SPIR,A1 
177744 _ae 
177734 acai 
177724 _ 
177714 eae 
177704 ae 
000344 #344 , QASFATAL sMOVE TO MAILBOX # *eeeeee 344 eeenene 
(R2) SET MSGTYP TO FATAL ERROR 
017014 000000 74 IN SPIR DOES NOT MAKE SENSE OR SPIR NOT=0-6 
; TO SCOPE REPLACE HALT W/ 240 
; AND REPLACE NEXT INST W/ 561 
017016 an oe 177772 : #1000, a4P IRQ 


0004 10$ 
piel ay 177772 : + > eats 


0004 2 BR 

012737 177772 : #4000, a@#P IRQ 
000420 BR 

012737 177772 : #10000 ,aaP IRQ 
000414 1 

012737 177772 z #20000, a#P IRQ 
000410 BR 10$ 

012737 177772 : #40000, a#P IRQ 
000404 1 

012737 177772 : #100000 , a#P IRQ 
000400 BR 10$ 

000207 : PC 


; TABLE FOR PIRQ SETUP 
+A PIR LEVEL 


# LOADED INTO PIRQ REG RO 
1000 


Bowowoowmwn 
ee ee ee ee 
Oe ee ee ee ee ee ee | 


40000 
100000 


38 


000306 aa$PAass 
000100 PASSPT :SHOULD PRINT THIS PASS? 


0 BN ACT ;NO 
132767 000040 161171 #40, SENVM WILL APT ALLOW PRINTING? 


ee ee et eed 
ooovowo 
— ot oe oe 
Wr oO 





=¢ 
—s 
— 
Oo 

ab ah ad ad od 

OONAW 


ee es et ot 4 
DODOODODS 
NLS 
tololotolololototote) 
EVBLNVSERSNYS 


~ 
oO 


1934 017257 
0 
1935 Abe 


1936 abe S52 


017376 
1937 017400 


z 
2 
3 
3 
Uz 


at ot ot et 


1111 27-SEP-79 16:56 PAGE 71-1 
IRQ LEVELS AND SPL INSTRUCTION 
001014 BNE ACT 3NO 
023727 000042 017172 CMP a442 ,ASENDAD 
001410 BEQ ACT 
012700 017222 MOV #MSG,RO ;GET MSG ADDR. 
oth 14 000346 eet PC ,PRIMSG ;PRINT MESSAGE POINTED TO BY RO 
012767 177761 000036 MOV #177761.PASSPT ;DO IT ABOUT 15 DECIMAL TIMES 
0137 000042 ACT: MOV a442,R0 ;CHECK ACT 
001405 3 GOAGIN KEEP GOING 
004710 SENDAD: JSR PC, (RO) z;ACT HOOKS 
000240 NOP 
000240 NOP 
00024 NOP 
012767 000012 160600 GOAGIN: MOV #12,10 
005067 160576 CLR 12 
167 161434 JMP RESTRT 7D0 NEXT PASS 
177777 PASSPT: =1 
01 012 105 MSG: eASCIZ <15><12>.END OF CKKABAO 11/44 TRAPS. 
116 104 040 
117 106 040 
103 113 113 
101 102 101 
060 040 061 
061 057 064 
064 040 124 
122 101 120 
123 000 
015 012 103 PNAME: .ASCIZ <15><12>+CKKABAO 11/44 TRAPS+ 
113 113 101 
102 101 060 
040 061 061 
057 064 064 
040 124 122 
pha 120 123 
oi o1¢ 1a TITLE: .ASCIZ <15><12>+CKKABAO 11/44 TRAPS+<15><12> 
102 101 060 
040 061 061 
057 064 064 
040 124 122 
101 120 123 
015 012 000 
015 012 116 MSGNFP: .ASCIZ <15><12>.NO FLOATING POINT OPTION PRESENT. 
117 040 106 
114 117 101 
124 111 116 
107 040 120 
117 111 116 
124 040 117 
120 124 111 
117 116 040 
120 122 105 
123 105 116 
1246 000 
- 015 012 116 MSGNCIS:.ASCIZ <15><12>.NO CIS OPTION PRESENT . 


SEQ 0065 


1956 0 


1957 
1958 
1959 
1960 
1961 
1962 


MACRO M1111 


27=SEP=79 16:56 PAGE 71-2 


TEST PIRQ LEVELS AND SPL INSTRUCTION 


017403 
017406 
017411 
017414 
017417 
017422 
017425 
017430 


017432 
017440 


017442 


017514 
017517 


017520 


017536 
017542 
017544 
017550 
017552 


— OH St 
Of + 3S 
OOWOo-]N—SN 


8 


012767 
000000 


i) 
> 
oO 


MNMIM—NNPM 
SWONOW 


017442 


017432 
000500 
00004 


000040 
177564 
177566 
177564 


160364 


160354 
160637 


160573 


PWRDWN: MOV #PWRUP , 24 

HAL T 
PWRUP: MOV APWRDWN , 24 

V MBUF F 

BITB #40, SENVM sWILL APT ALLOW PRINTING? 

BNE PFRES 7NO 

MOV A#MSGPWF ,RO :GET MSG ADDR 

JSR afer SPRINT MESSAGE POINTED TO BY RO 
PFRES: JMP 


RES 
MSGPWF: .ASCIZ ehese]2>, POWER FAILED!. 


; SUBROUTINE TO PRINT MESSAGE 


PRIMSG: BITB #40, $ENVM WILL APT ALLOW PRINTING? 
BNE 1$ F NO 


2$: TSTB aAVTPS “TTY READY 
BPL $ zNO WAIT 
MOVB (RO) +, a4TPB ZPRINT CHARACTER 
BNE 2s NEXT IF NOT DONE. 
3$: TSTB aFTPS 
BPL 3$ 
1$: RTS PC 


C 6 
«MAIN. MACRO M1111 27-SEP-79 16:56 PAGE 71-3 
SYMBOL TABLE SEQ 0067 


ABASE = 000000 BEGIN 000622 FPP 015512 PIRPSW 016710 RETF 002634 
ACDW1 = 000000 BELL = 000240 F SPL 016256 PIRQ = 177772 RETF1 003460 
ACDW2 = 000000 BRI 001032 GIN] 015246 PIRVC1= 000240 RETF2 004360 
ACPUOP= 000000 BR10 001264 GIN2 015264 PIRVC2= 000242 RETF3 005174 
ACT 017162 BR11 001400 GIN3 5532 7257 RETF4 7 
ADALL 013240 BR12 001450 GOAGIN 017202 PQTRP 016604 RETF5 006704 
ADDWO = 000000 BR13 001520 = 00000 PROFTE 013642 RETG 002760 
ADDW1 = 000000 BR14 001570 HLT = 00000 PRTMSG 017520 RETG1 00 
ADDW10= 000000 BR15 001676 ILLA = 004700 PSW == 177776 RETG2 004 
ADDW11= 000000 BR16 001720 ILLB = 000100 PTRP 016626 RETGS 005320 
ADDW12= 000000 BR17 001742 INST 015520 PWRDWN 017432 RETG4 i 
ADDW13= 000000 1 INSTC 2426 PWRUP 017442 RETGS 007030 
ADDW14= 000000 BR20 001764 INSTK 007274 RA 005474 RETHS 007176 
ADDW15= 000000 BR21 002006 KPARO 000600 RA] 003764 RETJ 007226 
ADDW2 = 000000 BR22 KPAR1 000602 05460 RETK 007276 
ADDW3 = 000000 BR23 002052 KPAR2 000604 RBi 003750 RETL 007356 
ADDW4 = 000000 06 KPAR3S 000606 RC 005454 RETM 007424 
ADDWS = 000000 BR33 002132 KPAR4 000610 RCPUER 000502 RETN 007502 
ADDW6 = 000000 BR34 002146 KPARS 000612 RC1 003744 RETO 007624 
ADDW7 = 000000 BR35 002162 KPAR6 000614 RESET2 014462 RETP 010020 
= 000000 002176 KPAR7 000616 RESET3 014450 RETQ 010114 
= 000000 BR37 002222 KPDRO 000560 RESTRT 000654 RETR 010166 
ADEVCT= 000000 BR4 001134 KPDR1 000562 RET 015312 RETS 010250 
ADEVM = 0 BR4O 002236 KPDR2 000564 RETA 002316 RETT 010320 
ADJNC 015232 BR41 002252 KPDR3 000566 RET 2330 RETU 00 
ADREND BR45 003752 KPDR4 000570 RETAT 012052 RETV 10526 
ADRTAB 000520 BR46 004602 KPDRS5 000572 RETA1 003156 RET1 015332 
AENV = BR46A 004614 KPDR6 000574 RETA2 004054 RET2 015354 
AENVM = 000000 BR47 KPDR7 000576 RETA3 004670 RET3 015374 
AFATAL= 000000 BRS 001162 KTSTA 000516 RETAS 005564 RET4 015362 
= 000000 BR5S1 006312 KTVEC 000514 RETAS 006400 RTI1 012462 
AMADR2= 000000 BRS1A 006324 K1 000744 RETB 002360 RTI2 012476 
AMADR3= 000000 BR6 001210 K10 000762 RETBT 012126 RTRAP = 00001 
AMADR4= 000000 BR60 012664 K11 000764 RETB1 003206 RTRAP1= 
AMAMS1= 000000 BR7 001236 K12 000766 RETB2 00 RTRAP2= 000020 
AMAMS2= 000000 BR70 013074 K2 000746 RETB3 004720 RTRAP3= 000030 
AMAMS3= 000000 BR71 014130 K3 000750 RETB4 005614 RTRAP4= 000014 
= 000000 BTRAP 013452 K4 000752 RETBS 006430 RTRAPS= 
= 000000 BUF F K5 000754 RETC 002430 RTT1 012272 
AMSGLG= 000000 = 177778 K6 000756 RETCT 012206 RTT2 012310 
AMSGTY= 000000 CERIH 015734 K7 000760 RETC1 003256 RTT3 012356 
AMTYP1= 000000 CERMSK= 177413 LAST =%000001 RETC2 004154 RTT4 012376 
AMTYP2= 000000 CERR1 010056 MLOOP 016362 RETC3 004770 RTTS 012330 
AMTYP3= 000000 CERR2 010736 MS 7222 RETC4 005664 RTT6 012420 
AMTYP4= 000000 CORH 013236 MSGNCI 017400 RETCS 006500 R6 =%000006 
APASS = 000000 CPUERR= 177766 MSGNFP 017335 RETD 002510 R7TRX 01 
APR IOR= CTRAP 0134 MSGPWF 01750 RETD1 003336 R7TR1 012560 
015220 DLI11W 013644 NODL 014142 RETD2 004234 R7TR2 012630 
A DL11W1 013650 NODL1 014300 RETD3 005050 R7TR2A 012616 
ATESTN= D 015746 NODL2 914404 RETD4 005744 R7TR3 012700 
ATRAP 013306 DTRAP = 0.13426 NODL3 014654 RETDS 006560 R7TR4 = =012752 
AUNIT = E 017110 NODL4 015046 RETE 002556 6244 
AUSWR = ERRFi 010044 NOP = 00024 RETE1 003402 SETPIR 016714 
AUTO 013274 ERRP2 010724 013260 RETE2 004302 I 016704 
AUTO! 013572 FINISH 015516 NXTST 016522 RETE3 005116 SPSid 016706 
AVECT1= FIRST =%000005 PASSPT 017220 RETES 006012 SRO 000504 
AVECT2= 000000 FOVER 011752 PFRES 017474 RETES 006626 SROH 000506 


«MAIN, MACRO M1111 27-SEP-79 


SYMBOL TABLE 

SR1 000510 
SR2 000512 
STATUS= 177776 
STP 011764 
STPP 003056 
STPPA 003070 


STP 3D 4053210 
T "015436 
TABLE? 015406 


TONT1? 013106 
TPB = 177566 
TPS = 177564 
TRACE 013062 
TRAPA = 0 
TRAPB 13604 


TRT = 

TRO 014104 
TR2 014116 
TR3 014236 
TRS 014252 


TRS 014240 

- ABS. 017554 000 
000000 001 

ERRORS DETECTED: 0O 

VIRTUAL MEMORY USED: 


DYNAMIC MEMORY: 20434 WOR 
ELAPSED TIME: 


00:05:03 
CKKABAO , CKKABAO/NL : TOC/~SP/CRF =CKKABAC. SML , CKKABAO.P11 


16:56 PAGE 71=4 


TSFCIS 015142 
TSL 013234 
TST] 000770 
TST1O0. 002452 
TST100 012514° 
TST101 013002 
TST102 013122 
TST103 013216 
TST104 013656 
TST105 014004 
TST106 014142 
TST107 014300 
TST11_ 002600 
TST110 014404 
TST111 014500 
TST112 014654 
TST113 015046 
TST114 015532 
TST115 015756 
TST116 016262 
TST12 003102 
TST13. = 90315 

TST14 003226 
TST15 003300 
TST16 =©003424 
TST17 =: 003714 
TST2 001314 
TST20 004012 
TST21 004054 
TST22 004124 
TST23 004176 
TST24 004324 
TST25 004626 
TST26 004670 
TST27 004740 
TST3 001640 
TST30 ©005012 
TST31 005140 
TST32 © =©6005424 
TST33 = 005522 

58289 WORDS ( 228 PAGES) 
WORDS ( 78 paces S) 


005564 


TTCSR = 


TTT37 


WIE SWWMMNAQOUIM 
D-WEMA NOAWUAUN 
ABODONNLS KNOL 


000 


— 2 4 —4 —4 — —>4 —4 — — a — 4» 4. =n — 


000330 


SEQ 0068 


CKKABAO CREATED BY MACRO ON 27=SEP=79 AT 16:58 cnet 1 


SYMBOL CROSS REFERENCE SEQ 0069 
SYMBOL VALUE REFERENCES 

= 000000 67-445 
ACDW1 = 000000 67-445 
ACDW2 = 000000 67-445 
ACPUOP = 000000 67-445 67-445 
ACT 017162 71-1913 71-1915 71-1917 = -#71=1922 
ADALL 013240 70-1392 8 =#70=1395 
ADDW. = 000000 67-445 
ADDW1 = 000000 67-445 
ADDW10 = 000000 67-445 
ADDW11 = 000000 67-445 
ADDW12 = 000000 67-445 
ADDW13 = 000000 67-445 
ADDW14 = 000000 67-445 
ADDW15 = 000000 67-445 
ADDW2 = 000000 67-445 
ADDW3 = 000000 67-445 
ADDW4 = 000000 67-445 
ADDWS = 000000 67-445 
ADDW6 = 000000 67-445 
ADDW7 = 000000 67-445 
ADDW8 = 000000 67-445 

= 000000 67-445 
ADEVCT = 000000 67-445 67-445 
ADEVM = 000000 67-445 
AD.INC 015232 70-1605 #70-1618 
ADREND 000620 467-495 
ADRTAB 000520 467-459 
AENV = 000000 67-445 67-445 
AENVM = 000000 67-445 67-445 
AFATAL = 000000 67-445 67-445 
AMADR1 = 000000 67-445 
AMADR2 = 000000 67-445 
AMADR3 = 000000 67-445 
AMADR4 = 000000 67-445 
AMAMS1 = 000000 67-445 
AMAMS2 = 000000 67-445 
AMAMS3 = 000000 67-445 
AMAMSS = 000000 67-445 
AMSGAD = 000000 67-445 67-445 
AMSGLG = 000000 67-445 67-445 
AMSGTY = 000000 67-445 67-445 
AMTYP1 = 000000 67-445 
AMTYP2 = 000000 67-445 
AMTYPS = 000000 67-445 
AMTYP4 = 000000 67-445 
APASS = 000000 67-445 67-445 
APRIOR = 000000 67-445 

015220 70-1599 §=#70-1615 

ASWREG = 000000 67-445 67-445 
ATESIN = 67-445 67-445 
ATRAP 013306 70-1398 #70-1405 
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CKKABAQ CREATED BY MACRO ON 27=SEP=79 AT 16:58 PAGE 2 
SYMBOL CROSS REFERENCE CREF 
SYMBOL VALUE REFERENCES 

000000 67-44 


AUSWR = 445 67-445 

AUTO 013274 #70=1403 

AUTO) 013572 70-1389 = #70=1446 

AVECT? = 000000 67-445 

AVECT2 = 000000 67-445 

BEGIN 000622 67-439 67-442 #68-502 
BELL = 000240 #66-353 

BR 001032 68-539 #68-541 


6 6 ! 
68-1021 68-1026 68-1028 68-1033 68-1036 68-1047 68-1060 68-1066 68-1069 
68-1072 68-1075 68-1079 68-1084 68-1086 69-1092 69-1095 06 
























CKKABAO 
SYMBOL 


CREATED By 
SYMBOL i +9 Opeth: 


VAL 


i 


177776 


9-1135 


#67-480 


70-1238 
70-1241 
*70-1625 


68-1075 


MACRO ON 27=SEP=79 AT 16:58 
A a 


69-1141 


69-1149 
69-1193 


70-1424 
69-1121 
70-1434 


#71-1910 


#70-1680 


70-1622 


#70-1256 


*68-542 


70-1629 


PAGE 3 
CREF 


69-1144 
70-1421 
70-1577 
68-713 
68-859 
*68-1023 
*69-1156 


70-1407 


69-1128 
70-1690 


70-1624 


68-581 


70-1635 


69-1147 
70-1279 
70-1345 
70-1445 
70-1627 


69-1171 
70-1435 


69-1132 
70-1698 


70-1640 


69-1152 
70-1285 
70-1349 
70-1452 
70-1632 
*68-756 
*68-893 
68-1045 
69-1182 


70-1699 


69-1186 
70-1702 


#70-1681 


69-1154 
70-1291 
70-1352 
70-1479 
70-1635 


*68-763 
*70=-1628 


70-1711 


69-1192 
70-1710 


69-1159 
70-1303 
70-1358 
70-1496 
70-1638 


68-778 
68-920 
*68-1081 


69-1196 
70-1715 


69-1162 


70-1689 
68-789 


*68-955 
*68-1088 


70-1396 


SEQ 0071 


CKK ABAC 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
KPDR3 0005 
KPDRSG 000570 
KPDRS 000572 
KPDRE 000574 
KPDR7 000576 
KTSTA 000516 
KTVEC 000514 
KI 000744 
K10 000762 
«11 000764 
Kie2 000766 
K2 000746 
x3 000750 
K4 000752 
KS 000754 
K6 000756 
«7 000760 
LAST =% 1 
MLOOP 016362 
MSG 017222 
MSGNC I 017400 
MSGNF P 017335 
MSGPwF 17500 
NODL 014142 
NODL 1 014300 
NODL 2 014404 
NODL 3 014654 
NODL4 015046 
NOP = 000240 
013260 
NXTST 016522 
PASSPT 017220 
PFRES 017474 
PIRPSW 016710 
PIRQ =. 177/re 
PIRVC1 = 000240 
PIRVC2 = 000242 
017257 
PQTRP 016604 
PROF TE 013642 
PRTMSG 017520 
PSwW = 177776 
PTRP 016626 
PWRDWN 017432 
PWRUP 017442 
RA 005474 
RA 003764 
RB 005460 


CREATED BY 


81 


*68-587 
68-612 
68-633 


*68-586 


#70-1580 


70-1402 
ri by of 


#71-1864 
470-1839 


#68-926 


MACRO ON 27=SEP=79 AT 14:58 
REFERENCES 
#67- 


68-588 
*68-618 
68-636 


68-589 
68-621 


70-1640 


70-1840 
*71-1921 


70-1808 
71-1884 


*70-1457 


70-1739 


#71-1939 


*68-928 


PAGE 4 
CREF 


68-591 
68-620 
68-638 


*68-594 


68-630 


70-1841 
#71-1932 


*70-1828 
71-1886 


70-1461 
71-1919 
70-1704 
70-1741 


71-1942 


68-929 


*68-595 


70-1852 


70-1829 
71-1888 


70-1477 
71-1967 
70-1707 
70-1750 


68-596 
68-641 


68-605 


68-633 


70-1855 


#70-1860 
71-1890 


70-1494 
#71-1953 
70-1716 
70-1753 


68-599 
68-644 


68-607 


68-638 


71-1892 


70-1513 


70-1719 
70-1755 


*68-602 
68-044 


*68-611 


68-647 


71-1894 


70-1537 


70-1728 
70-1758 


68-604 
68-647 


68-613 


71-1896 


70-1559 


70-1731 
70-1761 


SEQ 0072 


CKKABAO CREATED BY MACRO ON 27-SEP=79 AT 15:58 PAGE 5 

SYMBOL CROSS REFERENCE CREF 

SYMBOL VALUE REFERENCES 

RB} 003750 *68-795  #68-798  *68-800 ~—--6 8-807 

RC 005454 #68-925 68-930 

RCPUER 50 867-452 *A9=1128 «69-1129 69-1130 *69=1192 
70-1412 701415 #70=1436 —#70-1635 701440 
*70-1710 *70=1711 = 70-1772 

RC) 003744 #68-797 68-802 

RESET2 014462 70-1525  #70=1532 

RESETS 014450 70-1523 #701531 

RESTRT 54 68-505  #68-508 71-1931 71=1948 

RET 015312 701626  #70-163 

RETA 002316 68-666 #68-670 

RE TAH 2330 68-668 468-671 

RETAT 012052 70-1261  #70=1267 

RETA] 003156 68-735  #68-738 

RETA2 004054 68-807  #68-810 

RETA3 004670 68-867  #68-870 

RETAS 005564 68-936 #68-939 

RETAS 68-1004  #68-1007 

RETB 002360 68-675. #68-677 

RETBT 012126 70-1270 #70-1276 

RE TBI 0032 68-741 #68-743 

RETB2 0041 68-813  #68-815 

RETBS 004720 68-873  #68-875 

RETB4 005614 68-942 — #68-944 

RE TBS 30 68-1010 #68-1012 

RETC 002430 68-682  #68-684 

RETCT 012206 70-1280  #70-1285 

RETC1 003256 68-748 #68-750 

RETC2 004154 68-819  #68-821 

RETC3 004770 68-879 #68-881 

RETC4 005664 68-948 #68-950 

RETCS 006500 68-1016  #68-1018 

RETD 002510 68-689 #68-693 

RETD1 003336 68-755 #68-759 

RETD2 234 68-825 #68-829 

RETD3 005050 68-885 #68-889 

RETD4 005744 68-954  #68-958 

RETDS 5 68-1022  #68-1026 

RETE 002556 ~696  #68-700 

RETE1 0034 68-762  #68-765 

RETE2 004302 68-832  #68-836 

RETE3 005116 68-892  #68-896 

RETEG 006012 -962 #6 8-966 

RETES 006626 68-1029  #68-1033 

RETF 002634 68-705 #68-708 

RETF 003460 68-770  #68-773 

RETF2 360 68-840  #68-843 

RETF3 005174 68-900  #68-903 

RETF 006070 68-970.  #68-973 

RETFS 006704 68-1037 #68-1040 

RETG 002760 68-716  #68-719 

RETG1 36 68-781 #68-784 


*69-=1193 
70-1443 


69-1194 
*70-1698 


*70=1406 
*70-1699 


#70-1407 
70-1700 


SEQ 0073 


CKKABAO CREATED BY MACRO ON 27=SEP=79 AT 16:58 

SYMBOL CROSS REFERENCE 

SYMBOL VALUE REFERENCES 

SETPIR 016714 70-1816 71-1868 

SPIR 016704 a a 64 70-1811 #70-1858 

SPSwW 016706 *70-1728 70-1729 = 70-1736 
70-1811 70-1819 #70-1859 

SRO 000504 #67-453 

SROH 000506 467-454 

SR1 000510 #67-455 

SR2 00051 #67-456 

STATUS = 177776 #66-355 *68-654 *68-660 
*70=1532 *70-1542 70-1545 

STP 011764 70-1256 #70-1257 

STPP 003056 68-703 #68-72 

STPPA 003070 68-727 #68-728 

STP3 013176 70-1375 39470-1383 

STP3D 013210 70-1383 #70-1384 

TAB = #66-338 *70-1612 *70-1615 

TABLE 015436 70-1615 #70-1656 

TABLE 1 015406 70-1612 #70-1644 

TDEC1 010700 69-1188 #69-1191 

TDEC2 010772 69-1200  #69-1202 

TDEC3 011046 70-1209 = #701211 

TDEC4 011120 70-1215 = #70-1218 

TDEC46 011134 #70-1221 

TDEC7 011146 70-1219 = #701222 

TDEC77 013766 70-1466 470-1472 

TDEC8 013754 70-1460 70-1467 #701471 

TENSAV 015140 *70-1584 #70-1597 70-1619 

TITLE 017305 68-506 #71-1935 

TNCIS 015170 70-1601 #70-1606 

TONT1 013106 70-1366 48470-1373 

T?B = 177566 #66-352 *70-1567 *70-1570 

TPS = 177564 #66-351 70-14 *70-1561 

TRACE 013062 70-136 #70-1371 

TRAPA = 000010 #66-356 68-669 68-676 

TRAPB 013604 70-1425 70-1429 = #701447 

TRAP 10 015120 70-1585 #70-1591 

TRAP24 015110 70-1583 #70-1588 

TRCSR = 177560 #66-350 *70-1516 70-1520 

TRC1 013166 70-1377 70-1380 #70-1382 

TRP240 016712 *70-1813 *70-1815 70-1823 

TRT = 3 #66-343 68-93 68-943 

TRO 014104 70-1481 #70-1488 

TR2 014116 70-1476 70-1484 #70-1489 

TR3 014236 70-1499 = #70-1504 

TRS 014252 70-1500 #70-1506 

TR4A 012740 #70-1356 70-1358 

R5 014240 70-1493 70-1501 #70-1505 

TSFCIS 015142 70-1587 = #70-1598 

TSL 0132 #70~-1393 

TST1 000770 68-523 #68-535 : 

TST10 002452 68-680 68-685 #68-687 


PAGE 7 
CREF 


71-1869 
70-1737 


70-1 
*70=1 


we 
Ww 
—_ 


*70=1620 


71-1957 
70-1565 


68-683 


70-1839 
68-949 


71-1871 


*70=1750 


70-1464 
70-1553 


*70-1621 


70-1568 
68-692 


471-1865 
68-957 


71-1873 
70-1751 


*70=-1469 
*70=1572 


*70-1571 
68-699 


68-965 


71-1875 
*70-1758 


*70-1480 
70-1575 


*70-1579 
68-707 


68-972 


71-1877 
70-1759 


*70-1486 


71-1955 
68-718 


68-983 


SEQ 0075 


71-1879 
*70-1810 


#70-1497 


71-1959 


70-1237 





CKKABAO CREATED BY MACRO ON 27=SEP=79 AT 16:58 





SYMBOL aa REFERENCE 


REFERENCE 
70-13 


68-1078 


S 


70-1329 
70-1359 


68-701 
70-1521 


#68-739 
68-744 
68-751 
68-766 
68-792 
68-583 


#68-811 


68-1076 
69-1093 


#70-1331 
#70=1360 


#68-703 
#70=1523 


#68-746 
468-753 
468-768 
468-794 
#68-585 


468-817 
468-823 
#68-838 


468-877 


#68-922 


#68-946 
468-952 
468-968 
468-652 


#68-1014 


#68-1059 
#68-1071 


#69~-1094 


0076 


CKKABAO CREATED BY MACRO ON 27-SEP-79 AT 16:58 fae 9 


SYMBOL CROSS REFERENCE SEQ 0077 
SYMBOL V 


ALUE REFERENCES 
TSTS 007730 69-1094 69-1117 = #69=1119 
TSTS 010062 #69-1134 
TST5S4 010134 69-1134 69-1139 #69-1140 
TST55 010210 69-1140 69-1145 #69-1146 
TST56 010342 69-1146 69-1160 #69-1161 
TST57 010632 69-1161 69-1184  #69-1185 
TST6 002330 #68-673 
TST60 010742 #69-1198 
TST61 011012 69-1198 69-1203 #70-1206 
TST62 011146 70-1206 38470-1233 
TST63 011224 #70-1234 
TST64 011302 #70-1235 
TST65 011360 #70-1236 
TST66 011436 #70-1237 
TST67 011514 #70-1238 
TST7 002400 68-673 68-678 #68-680 
TST70 011612 70-1240 38970-1241 
TST71 011670 #70-1243 
TST72 011776 #70-1259 
TST73 Ci 2052 70-1259 #70-1268 
TST74 012146 70-1268 70-1277 = 70-1278 
TST75 012230 70-1278 70-1286 #70-1289 
TST76 012310 70-1289 70-1298 #70-1301 
TST77 012420 70-1301 #70-1318 
TTCSR = 177564 #66-349 *70-1468 = =*70-1472 = #701482) *70-1491 = #70-1498 = * 70-1515 70-1518 *70=1544 
*70-1552 *70=1555 
T1137 014650 70-1554 #70-1555 
TTY11 14636 70-1536 38470-1554 
TTy3 014554 70-1541 #70-1545 
TTY4 014630 70-1549 = =#70-1553 
T24TRP 016672 70-1790 +=#70-1856 
T4TRP 016656 70-1788 #70-1853 
UPARO 000540 467-469 bs 
UPAR 1 000542 #67-470 
AR2 000544 467-47) 
UPAR 3 000546 #67-472 
UPARS 000550 467-4753 
UPARS 000552 467-474 
UPAR6 000554 #67-475 
UPAR7 000556 #67-476 
000520 467-460 
UPDR1 000522 467-461 
UPDR2 0600524 467-462 
UPDR3 000526 #67-463 
UPDR4 0005 #67-464 
UPDRS 000532 #67-465 
UPDR6 534 467-466 
UPDR7 000536 467-467 
VDEC1 011216 70-1233 38470-1233 
VDE C10 011474 70-1237 70-1237 8 =#70-1237 
VDE C11 011552 70-1238 70-1238 = =#70-1238 
VDE C12 011564 70-1238 #70-1238 


PAGE 10 
CREF 


SEQ 0078 
REFERENCES 
70-1241 70-1 #701241 
#70-1233 
#70-1234 
#70-1235 


#70-1236 


as te ges 
Nonronononefonoronon 


DOOOOOOO oO 
BONG AE UNE 
ASFKAAEREGES 


VBSaesVeNes 


SESSSSs5555 


Bn 


467-446 
68-504 71-1916 = #71-1925 


71-1914 71-1944 71-1953 
ye Ere #68-544 68-549 


468-907 68-915 





CKKABAO 

SYMBOL CROSS REFERENCE 
SYMBOI. VALUE 

SERROR = 000302 

SE TABL 000320 

SE TEND 000330 

$F ATAL 000302 


CREATED BY MACRO ON 27-SEP-79 AT 16:58 


REFERENCES 
#68-915 


467-445 
467-445 


70-1854 
*68-517 


67-446 
67-448 


70-1854 


68-539 


PAGE 11 
CREF 


468-916 


#70-1854 


68-544 


68-917 


ONAUW——OO 
SONAOW—NNMWO 


70-1857 


68-549 


QUW—-O 


70-1857 


68-555 


#68-917 


#70-1857 


68-561 


71-1883 


68-567 


71-1883 


68-572 


70-1851 
67-446 


*68-508 
#67-445 


67-444 


70-1460 


CREATED BY MACRO ON 27-SEP-79 AT 16:58 
SYMBOL “cts 


70-1854 
67-446 


70-1460 


PAGE 12 
CREF 


70-1857 


70-1608 


71-1883 


71-1911 


70-1476 


70-1754 


70-1493 


70-1762 


70-1493 





70-1824 


68-626 


70-1512 





CKKABAO CREATED BY MACRO ON 27-SEP-79 AT 16:58 PAGE 13 
SYMBOL CROSS REFERENCE CREF SEQ 0081 
SYMBOL VALUE REFERENCES 
0-1523 70-1523 70-1536 70-1536 70-1558 70-1558 70-1582 70-1582 70-1688 
70-1688 70-1717 70-1717 70-1784 70-1784 
STN = 000117 #59-39 68-535 68-535 68-535 #68-535 68-583 68-585 58-585 68-585 
#68-585 68-624 68-626 68-626 68-626 #68-626 68-648 68-652 68-652 
68-652 #68-652 68-665 68-666 68-666 68-666 #68-666 68-673 68-673 
68-673 #68-673 68-678 68-680 68-680 68-680 #68-680 68-685 68-687 
68-687 68-687 468-687 68-701 68-703 68-703 68-703 #68-703 68-731 
68-731 68-731 #68-731 68-739 68-739 68-739 #68-739 68-744 68-746 
68-746 68-746 #68-746 68-751 68-753 68-753 68-753 #68-753 68-766 
68-768 68-768 68-768 #68-768 68-792 68-794 68-794 68-794 468-794 
68-805 68-805 68-805 #68-805 68-811 68-811 68-811 #68-811 68-816 
68-817 68-817 68-817 #68-817 68-82 68-823 68-823 68-823 #68-823 
68-837 68-838 68-838 68-838 #68-838 68-865 68-865 68-865 #68-865 
68-871 68-871 68-871 #68-871 68-876 68-877 68-877 68-877 468-877 
68-882 68-883 68-883 68-883 468-883 68-897 68-898 68-898 68-898 
#68-898 68-921 68-922 68-922 68-922 #68-922 68-934 68-934 68-934 
#68-934 68-940 68-940 68-940 #68-940 68-945 68-946 68-946 68-946 
#68-946 68-951 68-952 68-952 68-952 #68-952 68-967 68-968 -968 
~ #68-968 68-100 68-1002 68-1002 68-1002 68-100 68-100 68-1008 
#68-1008 68-1013 68-1014 68-1014 68-1014 68-1014 68-1019 68-1020 68-1020 
68-1020 #68-1020 68-1034 68-1035 68-1035 68-1035  #68-1035 68-1058 68-1059 
68-1059 68-1059 #68-1059 68-1065 68-1065 68-1065 #68-1065 68-1070 68-1071 
68-1071 68-1071 #68-1071 68-1076 68-1078 68-1078 68-1078 #68-1078 69-1093 
69-1094 69-1094 69-1094  #69-1094 69-1117 69-1119 69-1119 111 #69-1119 
69-1134 69-1134 69-1134 #69-1134 69-1139 69-1140 69-1140 69-1140 #69-1140 
69-1145 69-1146 69-1146 69-1146 69-1146 69-1160 69-1161 69-1161 69-1161 
#69-1161 69-1184 69-1185 69-1185 69-1185 #69-1185 69-1198 69-1198 69-1198 
#69-1198 69-1203 70-1206 70-1206 70-120 #70-1206 70-1233 70-1233 70-1233 
#70-1233 70-1234 70-1234 70-1234 #70-1234 70-1235 70-1235 70-1235 = #70-1235 
70-1236 70-1236 70-1236 #70-1236 70-1237 70-1237 70-1237 = #70-1237 70-1238 
70-1238 70-1238 #70-1238 70-1240 70-1241 70-1241 70-1241 3 =#70-1241 70-1243 
70-1243 70-124 #70-1243 70-1259 70-1259 70-1259 #70-1259 70-1268 70-1268 
70-1268 #70-1268 70-127 70-1278 70-1278 70-1278 #70-1278 70-1286 70-1289 
70-1289 70-1289 #70-1289 70-1298 70-1301 70-1301 70-1301 #70-1301 70-1318 
70-1318 70-1318 #70-1318 70-1329 70-1331 70-1331 70-1331 . #70-1331 70-1359 
70-1360 70-1360 70-1360 #70-1360 70-1375 70-1375 70-1375 3 =#70-1375 70-1389 
70-1389 70-1389 #70-1389 70-1460 70-1460 70-146 #70-1460 70-1476 70-1476 
70-1476 #70-1476 70-1493 70-1493 70-1493 #70-1493 70-151 70-1512 70-1512 
#70-1512 70-1521 70-1523 70-1523 70-152 #70-1523 70-1536 70-1536 70-1536 
#70-1536 70-1558 70-1558 70-1558 #70-1558 70-1582 70-1582 70-1582 #70-1582 
70-1688 70-1688 70-1688 #70-1688 70-1717 70-1717 70-1717 = =—#70-1717 70-1784 
70-1784 70-1784 #70-1784 
$TSTM 000334 #67-446 
$TSTNM = 000304 #67-447 *68-516 
$SUNIT 000312 #67-445 
SUNITM 000340 #67-446 
$USWR =. 000324 #67-445 
$x = 016362 #68-535 68-539 68-544 68-549 68-555 68-561 68-567 68-572 68-578 
68-58 #68-585 68-592 68-600 68-608 68-616 68-624 68-626 68-628 
68-631 68-634 68-637 68-639 68-642 68-645 68-648 #68-652 68-655 
68-656 68-657 68-658 68-662 68-663 68-664 68-665 #68-666 68-670 
#68-673 68-678 #68-680 68-685 468-687 68-694 68-701 #68-703 68-709 










CKKABAO CREATED BY MACRO ON 27-SEP-79 AT 16:58 PAGE 14 
SYMBOL CROSS REFERENCE CREF SEQ 0082 
SYMBOL VALUE REFERENCES 

68-710 2 wg 68-712 1 m4: 68-720 68-721 68-722 68-723 68-727 


70-1762 #70-1784 70-1795 #70-1797 70-1824 70-1840 #70-1843 70-1845 #70-1847 


$XXx = 177562 #68-539 68-539 #68-544 68-544 #68-549 68-549 #68-555 68-555 #68-561 
68-561 wer 4 68-567 #68-572 68-572 #68-578 68-578 #68-583 68-583 


#68-737 68-737 #68-744 68-744 #68-751 68-751 #68-760 68- #68-766 
68-7 #68-774 68-774 #68-775 68-775 #68-776 68-776 #68-777 68-777 
#68-779 68-779 #68-785 68-785 #68-786 68-786 #68-787 68-787 #68-788 
68-788 #68-792 68-792 #68-799 68-799 #68-809 68-809 #68-816 68-816 
#68-822 68-822 #68-830 68-830 #68-837 68-83 468-844 844 #68-845 


68-921 68-921 #68-927 68-927 #68-938 68-938 #68-945 68-945 #68-951 
#68-960 468-967 #68-974 68-97% #68-975 68-975 








SYMBOL CROSS REFERENCE 
ALUE 


MACRO ON 27=SEP=79 AT 16:58 


REFERENCES 


#68-976 
68-9 
ge rst 


#70-1854 


68-976 


#70-1824 
70-1854 


#68-977 
87 


70-1824 
#70-1857 


PAGE 15 
CREF 


68-977 
#68-988 


70-1857 


#68-979 


0 
471-1883 


68-979 


71-1883 


#68-985 
92 


70-1845 


68-985 


4 
#70-1853 


#68-986 


70-1851 


4 


